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WHAT YOU’LL FIND Editor 


Jake Kennedy 
You'll find programs galore for just about any purpose Produchon Editor 
in this all new issue of Your Computer magazine's Allecia Khartu 
Bumper Book of Programs. There are games, games Act Director 
and more games, as well as handy little utilities to Pamela Horsnell 
help you in your programming and — even one that Production 
will give you your biorhthym! We hope you get hours 


Kylie Prats 
of enjoyment from the programs published. Happy Office Services 
programming! 
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INTRODUCTION 


~~ 4 “ELCOME to an all new 
issue of Your Computer 
magazine’s Bumper Book 
of Programs! We_ began 
publishing readers’ programs in a 
special feature called Pocket Pro- 
grams back in December 1982. But, as 
popular as they were, by mid-1987 we 
felt we could better ‘inform’ our read- 
ers and help them learn by publishing 
programs with detailed explanations 
and programming hints and tips, and 
background articles. 


The biggest source of 
problems that reader's 
have had with the 
programs in earlier 
issues is fingers. 


This idea gave us the most popular 
articles we've ever published: Roy 
Hill’s ‘Coming Forth’ , an overview of 
the Forth language (May and June 
‘87), and Peter Hill's eagerly followed 
‘Turbo Tips’ series, which started as 
the two-part ‘Twenty Turbo Tips’ in 
late ‘86, and is still offering hints and 
shortcuts to Turbo Pascal enthusiasts. 
Interested in programming graphics? 
That's exactly what our current 
‘Graphics Techniques’ series is for. Or 
assembly language programming for 
the 80x86 family? Try John Summer- 
field’s ‘The Attainment of Assembly.’ 
Like to know about a multitasking 
Basic? See our August ‘87 issue. In 
fact — see every issue if you're inter- 
ested in programming, because we 
are too! | 

And, our Apple, Amiga, Amstrad, 
Atari, C64, IBM, Macintosh and Micro- 
bee columnists all offer specific ideas 
for programming with their machines, 
of course. 

Just because we stopped publish- 
ing Pocket Programs, didn’t mean that 


readers stopped sending them in — 
we've been embarrassed by the del- ' 
uge. So, the solution was obvious: tip 
them all into an all-new release of our 
Bumper Book of Programs. 

Inside you'll find programs to 
amuse four year olds and programs 
that can be used in business; techni- 
cal programs and games programs. 
They've been written by learners and 
by old hands, aged fifteen to seventy, 
living just about anyplace you can 
plug a computer in. 

While most of them were written 
specifically for a particular machine, 
almost all of them are written in some 
version of good old Microsoft Basic. 
Which means — just because it’s in 
the Amstrad section, doesn’t mean 
you can't use it on your Vic 20 (with a 
little bit of modification). It’s simply a 
matter of converting the peculiarities 
of your machine’s Basic to Microsoft 
Basic — if you’ve got a word pro- 
cessor it’s a quick search-and-replace. 
(Note: this won’t work 100 per cent of 
the time — but finding out why it 
doesn’t work on your machine is half 
the fun of computing.) 

To help you get these programs 
running, we've prepared a Basic Con- 
version Chart that shows the Micro- 
soft Basic equivalent of the Basic 
used on most popular (and not neces- 
sarily new) machines — you can con- | 
vert MSX Basic programs to run onan 
Apple II (or vice versa), for example. If 
you need the Chart, simply send $4 
(cheque or money order), to Your 
Computer's Basic Chart, PO Box 227, 


Waterloo 2017 NSW. , 
The biggest source of problems 


that reader's have had with the ‘pro- 
grams in earlier issues is fingers. So 
— here's a few tricks that we've found 
useful: | 

First, place a ruler under the line 
you're typing to mark your line. You 
don't want to start typing the wrong 
line part way through another, or skip 
a line, or type the same line (or lines) 
twice, all for the sake of a ruler. 

Next, check the data in data state- 
ments very carefully. When you type 


in ‘normal’ commands, mistakes are 
fairly obvious. For example: 


IB A>0O THEN ABROT 
is a lot easier to correct than — 


1000 DATA 143,233,233,087,323 

A quick check is to count how many 
numbers should have been typed in 
and how many have been typed in. It’s 
also very handy to have someone read 
the programs to you while you type 
them in — this is not only the quick- 
est way, it’s the most accurate. (It 
might just make your spouse, kid sis- 
ter or father feel wanted, too.) 

After you've typed in a program, it 
may return an error. When you find 
the line that’s causing the error, don't 
just look at it and think, ‘that seems 
OK.’ Check it by reading it backwards, 
character by character — this is most 
efficient at picking up mistakes if you 
read it out loud while someone else 
reads your typing. 

If you're still having problems find- 
ing an error, another trick is to put a 
trace on the execution to follow the 
path the program takes. This is partic- 
ularly handy if your program goes into 
an endless loop. Many Basics have 
the command TRON, which will show 
the line numbers as the lines are 
being executed, which a great help. 
Another hint is to liberally sprinkle 
PRINT statements in the programs as 
you type them in. These can tell you 
all sorts of things about the program 
as it executes — for example, they can 
just say ‘Hi, I’m at Line 100 and 
haven't crashed yet!’ or, they can give 
the value of the variable in the line 
(found with TRON) that seems to be 
causing the crash: ‘The value of C is 
(20. 

With these few debugging tools, 
you should be able to work out most 
of the problems you're likely to face 
(after all, all of these programs 
worked for the authors!). Of course, 
there’s’s always going to be that in- 
sidious, invisible bug that crawls into 
the work of everyone from unranked 
beginner to seasoned programmer. 
Sometimes things can get very com- 


plicated with computers, but far more 
often they are extremely simple. 
Often, the solution is to get a second 
opinion — an obvious mistake you've 
been trying to find for hours fre- 
quently hits a second person in the 
eye on the first read through. 

But — the best advice anyone can 
give is to join a computer club or user 
group. Not only will you meet people 
with the same interest as yours, but 
you'll also have a source of expert 
(well, more experienced, anyway) 
knowledge that can be invaluable 
after you've spent a fruitless weekend 
trying to debug a five line program. 
We've included a complete listing of 
User Groups, and it’s updated from 
time to time in Your Computer. 

After you've tried some of the pro- 
grams in this book, we hope you'll try 
your hand at writing your own — few 
things are more satisfying than your 
own work. After all why buy a data- 
base, when you can write your own 
(and you'll certainly learn a lot 
more!). One of the best ways to start 
learning is to experiment — try 
changing variables in a program to 
see what that does, for example. 

Soon, you'll discover how easy it is 
to program simple games like Pong or 
Hangman...and you're on your way. 
Starwars, lookout! O 


If they do — or if you just want to 
find out about them — don’t miss 
each month's issue of 


Uf 
Mm 


MAGAZINE 


Do computers play 
| any part in your life? 


1PUC 


AGAZINE FOR BUSINESS AND PLEASURE | 


A magazine for all computer users and enthusiasts, YOUR COMPUTER 
has something for everyone — topical features on all aspects of the 
computing world, expert reviews of the latest software and hardware, 
up-to-the-minute information for business people, and even games 
and advice for hobbyists. 


NEWS 
YOUR COMPUTER brings you all 


that’s interesting, innovative 
and inventive in the 
microcomputing world — news 
of products, plans and politics to 
keep you up-to-date with what's 
going on in this fast-moving 
industry. 


REVIEWS 


The latest machines and 
software from all the computer 
manufacturers are reviewed 
each month in YOUR 
COMPUTER. Keep informed 
about what's available, and use 
our reviews to help you assess 
which products are right for you. 


TUTORIALS 


YOUR COMPUTER’s tutorials 
include regular series on such 
popular subjects as the BASIC 
programming language and 
dbase. Other regular tutorial 
subjects are Turbo Pascal, Net- 
working, Artificial Intelligence 
and Graphics Techniques — all 
invaluable aids in making your 
micro work. 


PROGRAMS 


YOUR COMPUTER regularly 
publishes all kinds of programs 
written by both professional 
programmers and readers, and 
ranging from games to business 
uses, utilities to additions and 
alterations to well-known 
programs. 


All YOUR COMPUTER’s articles 
are written in everyday English, 
not computer jargon, so even if 
youre a beginner there's 
something for you in every issue. 
And our regular columns on all 
the popular brands of 
microcomputers are packed with 
enough information to get any 
newcomer straight into the 
exciting world of computing. 


At $3.50 — less if you take out a 
subscription — YOUR 
COMPUTER is going to cost you 
a lot less than its overseas rivals 
— and provide you with the 
latest information on the 
computer scene in Australia at 
the same time. Look for it every 
month at your newsagent. 
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INVOICE. THR 


This program can be used at 
work or home. Originally de- 
signed as an invoice or receipt 
maker, it may also be used to 
write an informed shopping list. 

It is, of course, designed for 
one particular invoice style (not 
a bad style at that), but you will 
probably need to alter its format 
for your particular usage. For in- 
stance, if you intend to make 
shopping lists you will not need 
two copies of each list, and the 
address, name of business and 
dates would be irrelevant. I'll 
leave it up to you how you alter it 
to your style. 

After typing in and saving, run 
the program. You will be asked 
on what date the order was re- 
ceived. The date may be entered 
in any form (for example: 3/4/86, 
3rd April 1986, the first Thursday 
in April). The program does not 


check for any particular form. The. 


next input is date sent. If you 
type nothing (just press Return), 
the default value is the received 
date. 

The second section is where 
you chose your invoice products. 
The screen will display a page of 
your products at a time. AS many 
pages as your memory will hold 
can be added to the program. 
Just alter the value of N in Line 
110 and add your data to the end 
of program. N must be a multiple 
of 20 minus | (for example: 19, 
39, 129). To move through the 
pages, the Return and Back 
Space keys can be used. Return 
moves you forward a page, Back 
Space back a page. 

Once the page you require is 
on screen, type the letter which 
is beside the product you need 
on your invoice/shopping list. 


REM Invoice 3/2/86 Richard Larkin 

REM N is number of products: M number of entries per invoice 
N279: M#63 

REM Increase string memory 

STRS (20498): SD 14 

Sé6$=" * 
REM Variable to clear line 

$7$=S46$+CHR(13) 

REM Dimension arrays 

REM POS(N,1) holds product names and costs 

REM O(N) #1 if product N is on invoice 

REM LOS(M) holds calculated lines of invoice 

REM P(M),Q@2(M) products chosen and quantity of 

DIM PO(N,1),0(N),LO(M) ,P(M),Q2(M) 

REM Read product data 

FOR X#O0 TO N: READ POS(X,0),PO8(X,1)3 O(X)*05 NEXT X 


REM 

REM Input invoice information 

REM 

GOSUB 990: PRINT 

INPUT "Date (received) : * DOS 

INPUT “Date (sent) > * Diss 

REM If no ‘sent’ date default to ‘received’ date 


IF DiS=""* DiS=DOS: PRINT Di% ELSE PRINT 
REM If ‘'** is entered then re-enter previous input 
IF Dis="*" THEN 180 


INPUT "Name of customer >: " AOS 
IF AOS="*" THEN 190 
INPUT “Number Street ; " ALS 
IF A1lS="*" THEN 220 
INPUT "Suburb Postcode State : " A2% 
IF A2S="*" THEN 240 


REM X is product pointer: L chosen products pointer 
X=0: L=0 

REM 

REM Find which products are on this invoice 

REM 

GOSUB 990: IF X<O: X=N-19 ELSE IF X>N-19: X=0 


REM Setup screen to display all relevant information 

CURS 36: PRINT "Page"X/20+1 

FOR Y=0 TO 9: CURS 1,Y+3: GOSUB 1010: NEXT Y 

FOR Y=10 TO 19: CURS 32,Y-7: GOSUB 1010: NEXT Y 

CURS 64: PRINT "Entries so far"L 

IF L=0 THEN 370 

TOS=POS(P(L-1),0): ITOS=IO$(31,28): CURS 1,14 

PRINT “Last entry: Item ’’"I10$""’, Quantity"Q2(L-1) Sé6% 

CURS 1,15: PRINT S7$"Type key corresponding to product purchased by custom 


REM Input a product or command 

K=ASC (KEY) 

REM if DEL pressed then delete last entry 

IF K®127 AND LOO: Lel-1i:s O(P(L))=O(P(L))-1: GOTO 290 
REM if RET forward a page if BACK SPACE back a page 

IF K#13: X=xX+20:; GOTO 290 ELSE IF K=8: X=X-20: GOTO 290 
REM If ESC print the invoice 

IF K¢{>27 THEN 420 ELSE IF L=0: RUN ELSE 390 

REM Convert to upper case: Check value in correct range 
K=K-65+ (K>90) #32: IF K<O OR K19 THEN 380 

K=K+X: IF POS(K,0)<>"" THEN 480 

CURS 1,15: PRINT S73: INPUT "Product is" I0% 

PO@(K,0O) =108(31,38) 

CURS 1,15: PRINT S7#% POS(K,0)3: INPUT " costs? " I0% 
GOSUB 940: POS(K,1)=10% 

REM Find quantity to be invoiced 

CURS 1,15: PRINT S73: INPUT “Enter quantity purchased =" 10% 
REM If no input then default 1, if input O then no entry 
IF JOS=""; 10%="1" ELSE IF VAL(I0%)=#0 THEN 310 

REM if first time product chosen then skip next section 
IF O(K)=0 THEN $70 

REM A previous entry exists 

CURS 1,13: PRINT S7% "Add to the previous entry, "$3 


003519 REM Find the previous entry 

003520 FOR I#0 TO L-1 

003530 IF P(I)=K: Y1S=POS(K,0O): PRINT Q2(1)" "118(51,28)"?"3 NEXT#I 550 

00340 NEXT I 

00549 REM See if entries are to be combined 

00550 ILS=KEY: IF Ii%="N" OR I16="n" THEN 370 ELSE IF I1¢="y" OR I1%="Y" THEN 56 
O ELSE 350 

00559 REM If combining add together entries 


003560 
00569 
003570 
00580 
00387 


Q2(1) ®Q2(1)+VAL (IOS): GOTO 310 

REM Set up a new entry 

P(L)®K: Q2(L)=VAL(IO$): O(K) #O(K) +1 
L=L¢+i: IF L<M THEN 310 

REM 


You will then be asked the quan- 
tity. The default value is one so if 
you just press Return, that’s what 
you get. Entering 0 will cause the 
product to be unchosen, and it 
will not appear on the list. If you 
select a letter which does not 
have a product allocated to it 
you will be asked to name the 
product and its price. It will then 
remain on the list until the next 
invoice. 

You may remove the entry de- 
scribed as Last Entry by pressing 
Del: this is for correction pur- 
poses. Products you have chosen 
so far for this invoice are under- 
lined on the screen. If you re- 
choose one of these, you will be 
asked whether or not you wish 
this entry to be separate to the 
last entry of the same product. 

The use of error correction and 
default values makes this pro- 
gram more convenient. It may 
sound complicated, but really it 
is quite simple. 

For those of you intending to 
use the program for shopping 
lists, there is enough space in 
the Price Per Unit column to 
write in how much it actually 
cost. So you can update the pro- 
gram, as inflation makes older 
prices outdated. 


Richard Larkin 
Dee Why NSW 


BASIC PROGRAMS 


OOS8B REM Work out lines in invoice 

00389 REM 

00390 TO#0: FOR X#0 TO L-! 

00600 @0#Q2(X): PL=VAL(POS(P(X),1)):3 SO=QOX#P1: TO=TO+SO 

00610 TO0S$sSTR(QO): GOSUB 940: G1S$=10% 

00620 I10S#STR(SO): GOSUB 940: S1$=10% 

00630 I1S=#S6S+QiS: I=LEN(IT1$): TiS=TiS(sI-8,1)+" " 

00640 I1282S6S+POS(P(X),1): I=LEN(I2$): I2$=I12S$(;1-194,1)+" " 

00650 138=S6$+S16: I=LEN(I3%): 13¢$=139(51-9,1) 

00660 1062" *+POS(P(X),0) +568: TOS=I0$(5 1,41) 

00670 LOS(X) =10S$+11$4+12$+13$3 NEXT X 

00680 I0S$2STR(TO): GOSUB 940: TiI$=10% 

00690 TiS=Sé6S+TiS: I=LEN(TIS): TiS=TiI$(s1I-9,1) 

00700 HOS="Customer’s receipt": Y=0 

00710 OUTL#1: LPRINT CHR(27) CHR(64) 3 

00719 REM Print copy of invoice to Microbee Dot Matrix Printer 

00720 10%="Place the name of your Business Here!": X=40-LEN(I0S$) /2 

00730 FOR 120 TO X: LPRINT " "$3 NEXT I: LPRINT CHR(27) CHR(45) CHR(1) I0% CHR(2 
7) CHR(43) CHR(O) 

00740 LPRINT \AOS\AIS\A2$\\"Order received : “DOS\"Order sent on > “Dis 
00730 LPRINT\HOS 

00760 LPRINT CHR(27) CHR(6S) CHR(8) 

00770 LPRINT CHR(188) [A388 181] CHR(177) [CA10 181) CHR(177) CA16 181) CHR(177) C 
All 161] CHR(189) 

00780 GOSUB 970: GOSUB 970: GOSUB 960 

00790 LPRINT " Description of purchase Quantity Price per unit 

Sub-total" 

00800 GOSUB 970: FOR X=0O TO L-1i: GOSUB 980: GOSUB 970 

00810 GOSUB 960: LPRINT LOS(X): NEXT X 

00820 LPRINT CHR(190) CA38 181) CHR(176) [AIO 181] CHR(176) [A116 181) CHR(178) C 
Ail 181) CHR(178) 
00830 LPRINT (A467 32) CHR(182) CA11 32) CHR(182) 

00840 GOSUB 960: LPRINT CA6é2 32) "Total " T1% 

00830 LPRINT [A67 32) CHR(190) CAI1 181] CHR(191) 

00860 LPRINT CHR(27) CHR(5S0O) 

00870 IF Y21: LPRINT CHR(12): RUN 

00879 REM These lines may be changed to meet your needs 

00880 LPRINT “Information about new products you are bring out” 

00890 LPRINT “in the near future can be placed in these lines to” 

00900 LPRINT “attract the attention of your known customer.” 

00910 LPRINT "As many lines as you wish can be inserted." 

00920 LPRINT “e.t.c" 

00930 Y=i: LPRINT CHR(12)3: HOS="Files receipt": GOTO 720 

00933 REM 

00934 REM Subroutines start here 

009335 REM 

00939 REM This makes I0% into a number with two decimal places 

00940 TI=VAL (10S): I10S=STR(TI-FRACT(T1¥100) /100) 

00950 IMLEN(ITOS$)-2: IF IOS(sI,1)¢>"."F TOS=IOS+"O": GOTO 950 ELSE RETURN 
00939 REM Reverse line feed 

00960 LPRINT CHR(27) CHR(106) CHR(24)3$: RETURN 

00969 REM Parts of invoice graphics 

00970 LPRINT CHR(182) [A38 32] CHR(182) CALO 32) CHR(182) CAI16 32) CHR(182) 
32] CHR(182): RETURN 

00980 LPRINT CHR(179) [A388 181] CHR(175) CAIO 1861] CHR(175) [A166 181) CHR(17 
All 181) CHR(178): RETURN 

00989 REM Clears screen prints heading 

00990 CLS: UNDERLINE: PRINT “Invoice Maker - Richard Larkin." 

01000 NORMAL: RETURN 

01009 REM Print product name, underlined if it has been chosen 

01010 PRINT CHR(Y+63)") "33 IF O(X+Y) 902 UNDERLINE 

01020 I108=P0S(X+Y,0): PRINT I10%($1,28): NORMAL: RETURN 

01023 REM 

01026 REM Product data must be in the form 

01027 REM “PRODUCT", "999999.99" 

01028 REM where 999999.99 is the cost as a string 

01029 REM 

01030 REM Page 1 

01040 DATA "Chair","39.95", "Desk","120.00" 


9 
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01060 REM Page 2 


01070 DATA "Nuclear Reactor”",”.07","A-Bomb","1.25" 

dich DA a ee ee a ee OT tg ee png en gee eoyraee ego nage ego s 
8 9  ] § 

01090 REM Page 3 

01100 DATA “Fish (one kilo)","7.25","Prawns (one kilo bag)","16.00" 

o1110 DATA ee pe ee ae a ee a a Be a ee ee pe eee eee 


01120 REM Page 4 


01130 DATA “Bread","1.05", "Baked beans",".97" 
01140 DATA “Toilet paper (six pack)","3.99", "Envelopes", "3.00" 
01150 DATA nu nw ww mn wen nn ww we wn a 0 wn on we 8 Ww om wo oo wn 08 « nn wo we 
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610 
HO, 
611 
roe 
613 
620 
620 


VIC 20 PROGRAMS 


DATA"#T THE TOF OF SOME STEFS.",%*,26,234,,,"4@T THE BOTTOM OF SOME STEFS." ’ 
be 
DATA, ."—N A GLOOMY COURTYARD. BH EAGANTS ARE FUSHING COFFINS AROUND. " 9%, 30,28 


DATA"-.N AN ANTECHAMBER." ,#, 21,55. 

DATA"-.N A DARE CAVERN. BILOODDRIFS DOWN THE COBWEB COVERED WALLS. " aero yy ge 
DATA"@T THE BQTTOM OF THE WEST TOWER." rm yyy e705 "N A QUADRANGLE. Gi HERE" | 
DATA" ARE VULTURES OVERHEAD. ",#,,42, 28,26 


» DATA"..N A FASSOAGE.MIHE WALLSARE LINED WITH ANCIENTSEFULCRES. " ge Mg 42,59 37 


DATA"-.N A FASSAGE. BIHERE ARETORCHES IN THE WALLS." 9%. 5 540,278 


640 DATA"TY A LARGE OAK DOOR. fit WREATH OF GARLIC IS FASTENED TO THE DOOR.‘T',*, 
9 

299 a 

641 DATA"-..N A LARGE BEDROOM. BIHERE'S A FOUR FOSTER BED IN THE CORNER." ,#*,,,42 

3° 

64% 


670 
480 
690 
Foo 
710 
vara 8) 
720 
7AQY 
TAS 
IC 

7350 
7335 
760 
765 


» DATA".N A LIBRARY. S&LHERE'SA COAT OF ARMS ON THE WALI.” ag 7g AS, 41 


DATA" TY A LARGE TOME. ",*,28,,,42,".N A SECRET CHAMBER. " See Sy a8 
IFFZ=46THENFYZ=7: RETURN 

IFPZ=S2THENEZ=3 12 RETURN 

GOTO720 

IFFZ=7THENFZ=6: RE TURN 

IFPAZ=21THENFZA=32: RETURN 

PRINT" 8F&, CAN'T DO THAT HERE! ": RETURN 


DATA"@#N OLD COFY OF THE ““ENTISTS 'AZETTE’",2,GAZETTE 
DATA" GLASS OF “1ULL.’S ILOOD’ WINE." ,10,WINE,"# CLOVE OF GARLIC." 78, 6ARL 
DATA"& GOLDEN CANDLESTICE.",25,CANDLE,"® CRUCIFIX." 25 sCRUCIF IX 


DATA"® SET OF FALSE TEETH. ",1, TEETH 
DATA'® FAIR OF RUEBER GLOVES.".7,GLOVES,"*® LARGE METAL LEVER. ", 22. LEVER 


9 ao. g 


DATA'® LARGE ROCK." ,168,ROCK,"*® VERY LARGE DANCING SKELETON WHICH -. CAN’ TGET 


FAST." 


767 
770 


DATA4O ,SEELETON 
DATA" &@N ANGRY DENTIST." ,3,DENTIST » * GIANT LIZARD." 42, LIZORD,"® DISCO-TICKE 


T" 5, TICKET 


7B0 
KEY 
785 
790 
795 
Boo 
B10 
B20 
Bz0 
840 
850 
Boo 
870 
8H0 
A900 
UIRN 
9a 
910 
920 
920 
9A0 
950 
9460 
970 
9BO 
9F0 


LQOO0O 


DATA" JAR OF # <TH-LIUIZARD REFELLENT. " ,12, REPELLENT, "@ LARGE SILVER KEY.",4, 
DATA"® FRIEST HOLDING A GIANT CRUCIFIX." ZO, ,FRIEST 

DATA" LARGE BIBLE." ,=5,RIBLE,"® JAR OF JA." 211, JAM, "&® DRILL." ,4,DRILL 
DATA"® FAINT FOOT." ,37,"@ FEASANT. " 927 ~FEASANT 

IFFZ=1 2ANDAAN= 1 THENE%=1 1: RETURN 

IFPA=13THENFRING  8fal HE BOUNCER ASKS “OHERE 'S YOUR TICKET? ‘'": RETURN 
FRINT' 8F&, CAN'T DO THAT YET! ":RETURN 

GOSUBLOSO: IFLZ2 1 THENRE TURN 

EZ=. 2: FORH=1TO20: IFEX (H) =F ZANDEY (NZ CR) ) =FPATHENE Y= 1 

NEXT: IFEZ=. THENRETURN 

TF R=) 2 THENAA=1 

IFR=1THENAR=1 

TFR=2THENFRINT" 8-QMFIRES CAN'T CARRY | 4L.-..-' ":s RETURN 

IFR=4THENPRINT" st SECRET FANEL MOVES ASIDE AND - WALK THRU IT! t's y7=24:RET 


TFR=STHENF RINT" e8F&. CAN’T GO NEAR A CRUCTIFIX! ": RETURN 
TF R=B0ORR= LOORR=120RR= 1 LORR= 16 THENFRINT" 88f-ON ’T BRE ABSURD! ":RETURN 
IF R=2THENAC: 1 
TFR=46THENAD= J 
[FR=7 THENNE=1 
TFR=9 THENAF = 1 
IF R= 4THENAG=1 
TFR=1 5 THENQH=1 
IFR=17THENAJ=1 
EZ=.:FORD=1T05 
TFVE(D) =""THENV# (D) =G64 (NZ (CR) ) SEZ=1:D26 


§O10 NEXT: LFEZ=. THENERINT efyY HANDS ARE FULL": RETURN 


1920 


BACNZ CR) de. RE TURIN 


1O30 Lae" "Ss PORH= 1 TOLEN (Z4) 


1040 


IFUIDS (Z4,H,1)=" “THENLS “RIGHTS C7 + » (LEN (Z4)-H)) :H=B0 


{O50 NEXT: R=. shZe.s LFLENCL SD) <3 IENRE TURN 


1960 
1O70 
1080 
1090 
Lion 
1110 
1120 
1120 
1140 
1150 
1160 


{1A 
L190 
1200 
L210 
I2SO 
{220 
1740 


12413 
“Tr 


FORH=1 7020: TFLEFT# CONE (CH) QLEN CL) ) Lf THENILZA=12R=H 

NEXT: RETURN 

ExZ=. 2: PRINT’ et. 'M CARRYING: mM" Ss ERINTY #: FORH= 1 TOS 

TPVE (CH) le" THENFPRIMTVE (CH) SE %=1 

MEXT: TDFEZ>. THENFRINT" 8-0OTHING AT ALLY" 

RE TURN 

GOSUPLOZO: TFL ZS LTHENFRINT  a&., CAN'T SEE A “slats RETURN 
EZ=. sFORD= L105 

TFV4 (D) 6 NZ CRD) THENVEA (CD)! "Ss EZe | 

NEXT: TFEZ=. THENERINT" @f@.‘M MOT CARRY ING A'S PRINTL#: RETURN 
PACNZ CR) ) FZ 

TRE Z=ZANDR= 1 THENSZ (2, 2) 42 ERIN Om HE DENTIST THANES ME & LETS ME FASS. "e BY 


hee) > . 


Th it 2S THENMAC=,. 

TFR=STHENAD=. 

TPR 7 THENNAE =. 

TPR LE THENAAE . 

IF R= 14 THENAG=. 

TER Z=ZOANDR= 1 70HDEL "GI" THEME ENT erat | IE PRIES? THANES ME SLES HE FASS. 
TPP A= S0OANDR= tL 70NDCE="GIV" THENGE C16) "4 SMILING PRIEST" :G#(17)="":29% (80 yond 


BASIC PROGRAMS 


a  ——————__— 


caterpillars. See if you can get 30 
caterpillars safely from one side 
to the other. Four dead caterpil- 
lars and you are finished. 

The machine code routine that 
the game uses allows multiple 
key checking. Another routine 
quickly prints all of the sand 
grains. 

Use A, Z, < and > to move 
cross hairs and the Space bar to 
fire. Procat is not as easy as it 
looks. 


Richard Larkin 
Dee Why NSW 


00229 REM Place variables at start values 

00230 A=0: B=0: D=0: E=0: FeO: Ge2: LeO: MeO: OF0: P=O: Geis Rel: X=#344 

00237 REM Move L,M pointers along one space 

00238 REM L points to grain of sand to be moved 

00239 REM M points to catterpillar to move 

00240 Le(L4+1 AND 13): M=(M+1 AND 3) 

002946 REM Decrement counters 

00247 REM D slows down firing speed 

00248 REM E stops lumps of sand falling 

00249 REM F prevents catterpillars walking on top of each other 

00230 IF D<>0: D=D-1 

00260 IF E<>0: E=E-1 

00270 IF F<>0O: FHF-1 

00279 REM Update screen information 

00280 NORMAL: CURS 218: PRINT P: CURS 291: PRINT A: CURS 299: PRINT B: PCG 

00289 REM See if catterpillar to be moved is "alive" 

00290 IF C(M,0)=0 THEN 360 

00299 REM Move catterpillar 

00300 CURS C(M,0): PRINT ALS(C(M,1))2 C(M,1)=1-C(M, 1) 

00310 IF C(M,1)<>0 THEN 360 

00319 REM Is catterpillar “sate” 

00320 C(M,0)#C(M,0)-1: IF C(M,0)<>895 THEN 360 

00330 CURS 895: PRINT "* ": C(M,0)20: P#=P+1OX¥Q: B=B+tl: PLAY 842: G=G-1 

00340 IF B=30: PLAY 1523438316: GOTO 520 

00350 IF G20: Q=aQti: G=akQ: R=Rti: PLAY 353$20,453,4320: NORMAL: CURS 230: PRINT R 
: PCG 

00359 REM See if sand grain has to be moved 

00360 IF S(L,0)=0 THEN 420 

00370 S(L,1)=206+(S(L,1)-4 AND 7): CURS S(L,0): PRINT " " 

00380 S(L,0)*S(L,0)+64: IF S(L,0)<896 THEN 420 

00389 REM See if sand grain has hit catterpillar 

00390 FOR O=0 TO 3 

00400 IF S{(L,0)>C(0,0)-2 AND S(L,0)<C(0,0) 46: A™A+1: I*®USR(12): PLAY 4,2: CURS C 
(0,0): PRINT " ": €(0,0)20: IF A=4: PLAY 1638543231:5 GOTO 330 

00410 NEXT O: CURS S(L,0): PRINT " ": S(L,0)#0 

00419 REM Has player fired 

00420 IF NOT(USR(0,33) AND D=0) THEN 450 

00429 REM Check if player has shot down sand grain 

00430 FOR O=0 TO 185: IF X=#S(0,0): S(0,0)#0: P=P+@: PLAY 24 

00440 NEXT O: D=2 

00449 REM USR routine print all the sand grains on the screen 

00430 CURS X: PRINT “ "$$ I=USR(12) 

00459 REM Calculate players new position 

00460 X=X+ (USR (0, 44) -USR(0, 46) )¥2+(USR(O, 1) -USR(0, 26) ) 464 

00470 X#(X/64-6 AND 7)%64+(X% AND 63)+384: CURS X: PRINT "LM" 

00479 REM If counter E is zero then try to add an extra sand grain 

00480 IF E=0O: O=INT(RND¥16): IF $(0,0)20: S$(0,0) =INT (RND¥24)%24+392: S(0,1)=206+1 

NT (RND¥4) #2: E=9-Q42 

00489 REM If F zero try to put in a catterpillar 

00490 IF F20: OmINT(RND¥4): IF O<@: IF C(0,0)#0: C(0,0)#952: FH48+INT (RND¥S) XQ#Q 

00499 REM A random element, can make sand fall quicker 

OOSO0O IF RND>.99: L=L-4 

00310 GOTO 240 

O0OS519 REM Print messages to inform of game outcome 

003520 NORMAL: CURS 26,8: PRINT "Well done !!": CURS 16,9: PRINT "All catterpilla 

rs across safely.": GOTO 5340 

003530 NORMAL: CURS 23,8: PRINT “You need practice?": CURS 19,9: PRINT "You have 
let too many die." 

ee CURS 21,10: PRINT “Any key to play again.": PLAY 0,16: I#USR(32774): GOTO 

00549 REM Machine code data 

003550 DATA 121,203,10,163,1,0,0,192,1, 255,255, 201 

00560 DATA 221,33,212,6,221,110,0,221,102,1,17,6,0,25, 229,221, 225,6,16,221,110,0 

ieee Cot Cone tae th toh esa rn heb Sahar hl Shaker senvnuntee rca tenses coy eyee 
$ 

003569 REM PCG catterpillar 

00570 DATA 0,0,1,2,15, 48, 64, 76, 146,140,128, 64, 64,48,15,0 

003580 DATA 112,128, 26, 96,128, 192, 32,32, 16,24, 20,58,45,196,3, 1 


003590 DATA 0,0,0,0,0,0,0,0,0,0,0,0, 255, 162, 20, 255 

00600 DATA 0,0,0,0,0,0,0,0,0,0,0,0, 255, 138,81, 255 

00610 DATA 0,0,0,0,0,0,0,0,0,0,0,0, 255, 138,81, 255 

00620 DATA 0,0,0,0,0,0,0,0,2,6,10,10, 244, 36,72, 240 

00630 DATA 0,0,0,1,2,15, 48, 64, 76, 146,140, 128, 64,64, 48,15 

00640 DATA 0,112,128, 28,96, 128,192, 32,33,18,20,31, 60,56, 241,30 
00650 DATA 0,0,3,14, 22,38, 127,226, 194,120, 240, 224, 64, 128,0,0 
00660 DATA 0,0,192,112,120, 20, 242,57,31,4,2,1,0,0,0,0 

00670 DATA 0,0,0,0,0,0,0,0, 128, 192, 96, 80, 232, 36, 24,7 

00679 REM PCG for cross hairs 


00680 DATA 128,64,32,16,0,0,0,0,0,0,0,0, 16,32, 64,128 
00690 DATA 1,2,4,8,0,0,0,0,0,0,0,0,8,49,2,1 

004699 REM PCG for sand grains 

00700 DATA 0,0,0,3,4,8, 16,63, 32,32, 32,32,463,0,0,0 


00710 DATA 0,0,0, 254,46, 10,18, 226, 34, 36, 40,48, 224,0,0,0 
00720 DATA 0,0,0,63, 32, 32, 32, 32, 63, 16,8,4,3,0,0,0 
00730 DATA 0,0,0, 224,48, 40, 36, 34, 226, 18, 10,6, 254,0,0,0 
00740 DATA 0,0,0,127, 96,80, 72,71, 68, 36, 20,12, 7,0,0,0 
00750 DATA 0,0,0,192, 32, 16,8, 252, 4,4,4, 4, 252,0,0,0 
00760 DATA 0,0,0,7,12, 20, 36, 68, 71, 72, 80, 96, 127,0,0,0 
00770 DATA 0,0,0,252,4,4,4,4, 252,8, 16, 32, 192,0,0,0 


ee 


BASIC PROGRAMS 


00100 REM CURSOR (16k Basic Version) 27/1/86 Richard Larkin 
00110 C=0: FOR X=16256 TO 16371: READ Y: POKE X,Y: C=C+Y: NEXT X 
00120 IF C=12376: I=USR(16256) ELSE PRINT "Data error!" 

00130 STOP 

00140 DATA 33,128,63,34,160,0,33, 141,63, 34, 194,0, 201, 205, 233, 163 
00150 DATA 192,245, 2549,9,40,6,254, 27, 40, 74, 241, 201,17,0,0,62 
00160 DATA 23, 205,10, 165,32,3,17,192, 255, 62, 26, 205, 10, 165, 32,3 
00170 DATA 17,64,0,62,1,205,10,165,32,3,17, 255, 255, 62,19, 205 
00180 DATA 10,165,32,3,17,1,0,42, 244,63, 124, 254, 240, 56,6, 254 
00190 DATA 244, 48, 2, 24,3, 42,11,1, 203,190, 25, 34, 244, 63, 203, 254 
00200 DATA 241, 254,0, 201, 241,42, 244,63, 126, 203,191,119,35, 34, 244,63 
00210 DATA 203, 254,191,201 


00100 REM CURSOR (32k Basic Version) 27/1/86 Richard Larkin 

00110 C=0: FOR X=32640 TO 32755: READ Y: POKE X,Y: C=Ct+Y: NEXT X 
00120 IF C=12760: I=USR(32640) ELSE PRINT “Data error!” 

00130 STOP 

001490 DATA 33,128,127,34,160,0,33, 141,127,34,194,0, 201, 205,233,163 
00150 DATA 192,245, 2549,9,40, 6,254, 27,40, 74, 241, 201,17,0,0,62 

00160 DATA 23,205, 10,165, 32,3,17,192, 255, 62, 26, 205, 10, 165, 32,3 
00170 DATA 17,64,0,62,1,205, 10,165,32,3,17, 255, 255, 62,19, 205 

00180 DATA 10,165,32,3,17,1,0,42, 244, 127,124, 254, 240,56, 6, 254 
00190 DATA 244, 48,2,29,3,42,11,1,203,190,25, 34, 244, 127, 203, 254 
00200 DATA 241, 254,0, 201, 241,42,244, 127,126, 203,191,119, 35,34, 244,127 
00210 DATA 203,254,191,201 


CURSOR.ONE 


Cursor is a machine code rou- 
tine. It allows you one of the 
more useful functions of other 
computers, a copy cursor. 

A copy cursor is available on 


many computers (Apple, Am- 
strad, BBC and so on). You can 
use it to cut down on typing, and 


A cr RRP Pa SE I EE SE SE ET A TE TE SEED 


; ae . ADDR CODE LINE LABEL MNEM OPERAND 
vastly improve your editing abil- 
ities. It is, in fact, a second cursor 
which may be moved around the 00100 ; COPY 27/1/86 RICHARD LARKIN. 
screen. 00110 5; Change ADDRSS to O7FSOH if you have a 32k machine 
Place your finger on the Tab 3F80 00120 ADDRSS EQU O3F80H 
key and while you hold it down, 3F80 00130 ORG ADDRSS 
sor up, down, left and right re- eee eee ; Lower ore Eeeaee ue routine isn’t corrupted 
; j 0 0160 H), 
5 eegrncel cea ae dade sen 3F86 218D3F 00170 LD HL, KEYCHK 
; : 00180 ; Change keyboard jump vector to this routine 
wish copied, press Esc. Each 3F89 22C200 00190 LD (O0C2H) , HL 
press will copy one character 3F8C C9 00200 RET 
from beneath the copy cursor 00210 3; Call routine to find if key is being pressed 
and enter it just as though you 3F8D CDE9A3 00220 KEYCHK CALL OASE9H 
typed it in. 00230 3; If key is not being pressed return to basic control 
Cursor.One can be useful 3F70 CO 00240 RET NZ 
when typing similar lines in a e7e ES 00250 PUSH AF 
program. Also, it may be used to Shee Row atest oe 2 
ee, : 00270 ; If TAB is pressed goto cursor move routine 
combine program lines to con- 3F94 2806 00280 IR Z,MVCUR 
serve space and increase speed. 3F94 FEIR 00290 cP 27 
You may use it instead of the 00300 ; If ESC is pressed goto copy routine 
Edit command; just list the line 3F98& 284A 00310 IR Z, COPY 
so you can add and remove large 00320 ; If irrelevant keys are being pressed return to basic 
or small chunks of the line with a SFA Fi 00330 POP AF 
lar less fuse. 3F9B C9 00340 RET 
. 00350 5; This routine finds whether cursor must be moved 
The program comes in three 00360 $ up,down, left or right 
versions: a source file for those 00370 : It th 
; ; en moves the cursor 
with EDASM, so they may alter 3F9C 110000 00380 MVCUR LD DE, 0 
the routine to suit their needs 2FOF 2617 00390 LD A,23 
and two Basic programs, one for SFAL CDOAAS5 00400 CALL OASOAH 
16 Kbyte and one for 32 Kbyte. 3FA4 2003 00410 IR NZ,NOTUP 
The Basic version should be SFA6é 11COFF 00420 LD DE, -64 
typed, run and then saved. Pref- 3FA9 3E1A 00430 NOTUP LD A,26 
erably, use monitor to save the 3FAB CDOAAS 00440 CALL OASOAH 
outine. ype — cr eo = 
ae ” $ 
D “CURSOR” M 3F80 3FF3 3F80 3FB3 3601 00470 NOTDWN LD A, 
(for the 16 Kbyte version) 3FB5 CDOAAS 00480 CALL OASOAH 
D “CURSOR” M 7F80 7FF3 7F80 3FB8 2003 00490 IR NZ,NOTLFT 
(for the 32 Kbyte version) SFBA 11FFFF 00500 LD DE,-1 
Now whenever you feel the ee ae ells NOTLFT LD ae 
Gree vountdaul reat 3FBF CDOAAS 00520 CALL OASOAH 
and it will eel it Ee a aerse; Uoecan a Sen 
3FC4 110100 00540 LD DE,1 
self on. 3FC7 2AF43F #00550 NOTRGT LD HL, (CURS1) 
Richard Larkin 3FCA 7C 00540 LD A,H 
Dee Why NSW 3FCB FEFO 00570 cP OFOH 
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3SFCD 3806 00580 JR C, BOUNDS 
SFCF FEF4 00590 CP OF 4H 

3FD1 3002 00600 JR NC, BOUNDS 
3SFD3 1803 00610 JR INTRP 


00620 3; If cursor isn’t on screen 
00630 3; it is placed on basic’s cursor position 


3FDS 2A0B01 00640 BOUNDS LD HL, (10BH) 

3FD8 CBBE 00650 INTRP RES 7, (HL) 

3FDA 19 00660 ADD HL, DE 

3FDB 22F43F 00670 LD (CURS1) , HL 

3FDE CBFE 00680 SET 7, (HL) 

3FEO Fl 00690 POP AF 

3FE1 FEOO 00700 CP 0 

3SFE3 C9 00710 RET 

2” 00720 5; This routine finds character under cursor 
00730 ; and then places it on basic’s cursor position 

3SFE4 Fi 00740 COPY POP AF 

SFES 2AF43F 00750 LD HL, (CURS1) 

3FE8S 7E 00760 LD A, (HL) 

3SFE9 CBBF 00770 RES 734 

3FEB 77 00780 LD (HL) ,A 

3FEC 23 00790 INC HL 

SFED 22F43F 00800 LD (CURS1) , HL 

3FFO CBFE 00810 SET 7, (HL) 

3FF2 BF 00820 cP A 

3FF3 C9? 00830 RET 

0002 00840 CURSI DS 2 

0000 00850 END 


00000 Total errors 


BOUNDS 3FDS CURS1 3FF4 NOTRGT 3FC? 
NOTDWN 3FB3 NOTUP SFA9 COPY SFE4 
KEYCHK 3F8D START 3F8O ADDRSS 3FsO 


INTRP 3SFDS 
NOTLFT 3FBD - 
MVCUR SF9C 


STARS.SEV Oo 10 REM Star Travel 


All aboard ... Come for the first 20 a Miroslav Kostecki Dec’86 


manned space flight beyond the = 30 
solar system, to the distant star 40 ‘setup screen & data 
cluster named, ‘Distant Star 50 DEFINT a-z 
Cluster.’ This program takes you 60 MODE 1 _ 
into the depths of space and 70 INK 0,0: BORDER 0 
time heading into the middle of 80 INK 1.26: INK 2,13 
a star cluster which you always 90 ORIGIN 320 200 : 
9 


get closer to but never seem to 
reach. It simulates stars of differ- 
ent colours and brightness flying 
past as you head toward the 


100 stars=30 
110 DIM a(stars) ,b(stars) ,c(stars) 
120 DIM e(stars) ,f (stars) ,al(stars) ,bi(s 


cluster at the speed of light. tars) 
You can have any amount of 130 FOR i=1 TO stars 
stars in the cluster that you want 140 GOSUB 340 
(providing you don’t go over the 150 NEXT i 
memory limit) by simply chang- : 
ing the value of the variable 160 | 
‘star’. 170 ’calculate movement 
The effect is created by a loop 180 FOR i=1 TO stars 
which contains the star co-ordi- 190 allid=ali): bi(id=b(i) 
nate and its direction continu- 200 alid=s=ali)+e(i) 
ously havingthesame numberof 210 eli)=el(i)*1.1 
stars on the screen given by the 220 blid=b(i)+f (i) 
ee cene 230 £(i)=£(1) "1.1 


Experiment with different 


numbers of stars. The result can 240 IF ABS(b(i)\10)>200 OR ABS(a(i)\10) 


be quite spectacular after a few >320 THEN GOSUB 340 
screens. 250 NEXT i 
M. Kostecki & P. Vermeer 260 ’move to new position 
Elizabeth Park SA 270 FOR i=1 TO stars 


280 PLOT ai(i)\10,b1(1)\10,0 
290 PLOT a(i)\10,b(i)\10,c(i) 
300 NEXT i 

310 GOTO 180 
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330 ’setup a star 

340 a(i)=0: b(i)=0 

350 e(i)=RND*¥200-100: f (i)=RND¥200-—100 
360 IF ABS(e(i))+ABS(f (i))<100 THEN c(i) 
=2 ELSE c(i)d=1 | 

370 IF RND>O.5 THEN c(i)=INT (RND¥2) +1 
380 RETURN 


CONDENSER 100 ’ ### Character Condenser ### 
110 ’ Miroslav Kostecki 18.12.86 

If you're like me you love colours 120 ° 

in programs, but are put off 

mode by the character size. So 130 SYMBOL AFTER 0 

you just compromise and use 140 MODE 1 

mode | which has only four co- 150 PRINT 

lours. Well, | don’t believe in 160 PRINT "Normal characters; ” 

compromising with computers. 170 a$="0123456789ABCDEFGHIJKLMNOPQRSTUV 

You're the boss, not it. And it WXYZ” 

should stay that way. Therefore, | 180 PRINT ag 

produced a program called the 190 PRINT 


Condenser, which condenses the 


characters down to the next 200 PRINT "Condensed characters; ” 


mode, and in the case of mode 2, 210 GOSUB 280 
I just halved the characters size. 220 MOVE 100,200: TAG 
This program has many uses 230 GOSUB 680’ to print a$ as condensed 
for the programmer and is great at 100,200 
for the graphics enthusiast with 240 SYMBOL AFTER 255 
its ae fi of colours. — 250 ? 
If you like cramming a lot of in- 
formation onto a screen, Con- 260 END 
denser is just for you. You can 270 ’ 
put twice as many characters on 280 ’ numbers 
screen as usual in any mode. 290 SYMBOL 48,4,10,10,10,10,10,4 
If has proved very useful in 300 SYMBOL 49,4,12,4,4,4,4,14 
programming and we think you'll 310 SYMBOL 50,4,10,2,4,8,10,14 
find it will do the same for you. 320 SYMBOL 51,4,10,2,4,2,10,4 
M. Kostecki & P. Vermeer 330 SYMBOL 52,8,10,10,10,14,2,2 
Elizabeth Park SA 340 SYMBOL 53,14,10,8,12,2,2,12 


a i ee ee ee 
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350 SYMBOL 54,4,10,8,12,10,10,4 560 SYMBOL 81,4,10,10,10,10,10,6 
360 SYMBOL 55,14,10,2,2,4,4,4 570 SYMBOL 82,12,10,2,12,4,10,10 
370 SYMBOL 56,4,10,10,4,10,10,4 580 SYMBOL 83,4,10,8,4,2,10,4 
380 SYMBOL 57,4,10,10,6,2,10,4 590 SYMBOL 84,14,4,4,4,4,4,4 
390 ’ capitals 600 SYMBOL 85,10,10,10,10,10,10,4 
400 SYMBOL 65,4,14,10,10,14,10,10 610 SYMBOL 86,10,10,10,0,10,14,4 
410 SYMBOL 66,12,10,10,12,10,10,12 620 SYMBOL 87,10,10,10,10,4,14,10 
420 SYMBOL 67,4,10,8,8,8,10,4 630 SYMBOL 88,10,14,4,4,14,10,10 
430 SYMBOL 68,12,10,10,10,10,10,12 640 SYMBOL 89,10,10,10,14,4,4,4 
440 SYMBOL 69,14,8,8,12,8,8,14 650 SYMBOL 90,14,10,2,4,8,10,14 
450 SYMBOL 70,14,8,8,12,8,8,8 660 RETURN 
460 SYMBOL 71,4,10,8,8,10,10,6 670 ’ 
470 SYMBOL 72,10,10,10,14,10,10,10 680 REM Put to screen a$ at gr cursor 
480 SYMBOL 73,14,4,4,4,4,4,14 690 ’ 
490 SYMBOL 74,6,2,2,2,10,10,4 700 GRAPHICS PEN ,1 
500 SYMBOL 75,10,10,4,12,4,10,10 710 1=LEN(a$) 
510 SYMBOL 76,8,8,8,8,8,8,14 720 FOR i=1 TO 1 
520 SYMBOL 77,10,14,4,10,10,10,10 730 PRINT MID$(a$,i,1); 
530 SYMBOL 78,10,10,12,6,10,10,10 740 MOVER -8,0 
540 SYMBOL 79,4,10,10,10,10,10,4 750 NEXT i 
550 SYMBOL 80,12,10,10,12,8,8,8 760 RETURN 
os HHH MATCH ### 

MATCH. FIV 6 ’ Miroslav Kostecki & Bill Jolly 

is program is great for the : 
teacher or just for entertainment ¢ December 1986 
— it can be used for matching al- 10 MODE 1 
most anything you can think of, 20 BORDER 1 


such as opposite words, animals 
and their young, morse code and 
letters, or if you're good enough, 
even computers and their bench- 
test speeds. In this example, 
there is a list of 23 countries with 
their capital cities. This is very 
good for the school teacher who 
needs copies of a test for his or 
her class. And, the kids at home 
can have good fun while learning 
something at the same time. 
The screen splits into two sec- 
tions. It prints the countries on 
the left side and their capital 
cities on the right. An arrow 
points to a country and another 
continuously moving arrow 
moves down past the cities at a 
rapid rate. You have to be quick 
to press a key, at the brief mo- 
ment when the arrow is in align- 
ment with the city. Your score is 
calculated by how many presses 
of the key it took you to go 
through all the countries and 
cities. There is also a timer 
added so you can try to beat the 
record score. 
P. Vermeer & M. Kostecki 
Elizabeth Park SA 


30 PEN 0: INK 0,15 

40 PEN 2: INK 2,0 

50 PEN 1 : INK 1,0 

60 DATA 01 Russia,O2 Germany,0O3 France, 
04 USA,O5 Australia,0O6 England,O/? New Z 

ealand,O8 Eire,O9 Holland,10 Norway,11 I 
taly,12 Youg 

oslavia,13 Switzerland,14 China,15 Japan 
,16 Finland,17 India,18 Greece,19 Israel 
,20 Egypt,21 Kenya,22 Canada,23 spain 


70 DATA O01 Moscow,02 Berlin,O3 Paris,04 
Washington,05 Canberra,06 London,O? Auck 
land,0O8 Dublin,0O9 Rotterdam,10 Oslo,11 R 
ome,12 Belgr 


ade,13 Bonn,14 Peking,15 Tokyo,16 Helsin. 


ki,17 Bombay,18 Athens,19 Jerusalem,20 C 
airo,21 Nairobi,22 Ottawa,23 Madrid 
80 ’ 

90 DIM countries$ (23) ,capitals$ (23) 
95 s=0 

100 FOR d=1 TO 23 

110 READ countries$(d) 

120 NEXT d 

130 FOR t=1 TO 23 

140 READ capitals’ (t) 

150 NEXT t 


170 REM rnd countries 

180 nl=l 

190 DIM picked(23) ,temp$ (23) 

200 c=INT(RND¥23+1) 

210 IF picked(c)= 1 THEN GOTO 200 
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220 temp$(n1l)= countries$(c) 570 NEXT a 

230 nl=nl+i 580 LOCATE 3,t 

240 picked(c)=1 590 PRINT CHR$ (243); 

250 IF nl=24 THEN GOTO 270 600 ”’ 

260 GOTO 200 610 FOR a = 1 TO 23 

270 FOR loop=1 TO 23 620 LOCATE 23,a 

280 NEXT loop 630 PRINT CHR$ (243); 

290 ” 640 FOR d= 1 TO 75 

300 b=1 645 IF NOT INKEY$= ”” THEN GOTO 700 

310 DIM selected (23) ,tem$ (23) 650 NEXT d 

320 t=INT(RND¥23+1) 660 LOCATE 23,a 

330 IF selected (t)=1 THEN GOTO 320 670 PRINT ” ” 

340 tem$ (b)=capitals$ (t) 680 NEXT a 

350 b=b+1 690 GOTO 610 

360 selected(t)=1 700 ”’ 

370 IF b=24 THEN GOTO 390 701 s=stil 

380 GOTO 320 710 IF NOT VAL(temp$(t))=VAL(tem$(a)) TH 
390 FOR loop=!1 TO 23 EN SOUND 1,2000,20:GOTO 650 

400 PRINT TAB(5); 715 SOUND 1,50,10 

410 PRINT MID$ (temp$ (loop) ,4,20); 720 LOCATE 5,t 

420 PRINT TAB(25); 730 PEN 2: INK 2,21 

430 PRINT MID$(tem$ (loop) ,4,20) 740 PRINT MID$(temp$(t) ,4,20) 

440 NEXT loop 750 LOCATE 25,a 

450 MOVE 300,0 760 PRINT MID$(tem$ (a) ,4,20) 

460 MOVE 310,0 765 PEN 1 

470 DRAW 310,400,13 770 picked (t)=1 

480 ’ 772 LOCATE 23,a 

485 count =0 774 PRINT ” ” 

490 ERASE picked 780 IF count <23 THEN 510 

500 DIM picked(23) 785 LOCATE 12,24 

510 t = INT(RND¥23+1) 830 PRINT ”your score was” s:IF s=23 THE 
520 IF picked (t)= 1 THEN GOTO 510 N PRINT "”excellant” . 
525 count =count +1 835 IF s>23 AND s<30 THEN PRINT”good try 
530 ’ 2 8 | 

540 FOR a =1 TO 23 836 IF s>30 AND s<50 THEN PRINT "try aga 
550 LOCATE 3,a in” 

560 PRINT ” ” 840 GOTO 840 


### Personality Test ### 
# Adapted by... # 


PERSON.FOU me 


The day of the computer shrink is 


s ~~ . 


close at hand. And as it gets 120 ; # Paul Vermeer ;Dec’86 # 
nearer, you will find many pro- 130 
grams about psychology popping 140 MODE 2: BORDER 1: INK 1,3: INK 0,10 
up from everywhere. This enter- 150 MOVE 0,0: DRAW 639,0: DRAW 639,399: 
taining program should prove in- DRAW 0,399: DRAW 0,0 
teresting to your guests, while 160 WINDOW #0,3,79,3,24 
providing them with a few laughs 170 PRINT TAB(15); "PERSONALITY TEST” 
sist rote 180 PRINT 
Pe gest al 190 PRINT "This personality test is not 
pick the interpretation that best comprehensive,” 
fits the verse, showing innermost 200 PRINT ” but can been used to find yo 
psychological traits. Once you've ur general character.” 
determined the interpretations, 210 PRINT 
you. Get a: run-down: Of yOUr per- 220 PRINT ” INSTRUCTIONS: Three verses 
ae ee is based on psy- will be printed.” 
chological research but don’t 230 PRINT "Following each verse will be 
take it too seriously. However, a list of interpretations.” 
computer shrinks have already 240 PRINT "Input the corresponding numbe 
been used on patients giving an r for the interpretation” 
overall psychological analysis. 250 PRINT ” you think is the best.” 

M. Kostecki & P. Vermeer 260 PRINT,,: INPUT “Type ’ENTER’ when re 


Elizabeth Park SA ady.",a 


270 CLS | 
280 PRINT 
he bough, 
290 PRINT 
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"A book of verses underneath t 


” 


"a jug of wine, a loaf of brea 


d-and thou” 


300 PRINT 
erness—” 
310 PRINT 
now!” 
320 PRINT 
330 PRINT 


"beside me singing in the wild 


” Oh, wilderness were paradise 


”"1) Happiness or contentment c 


an he found without much planning.” 


340 PRINT 


"2) Happiness is in accepting 


and enjoying simple things.” 


350 PRINT 
t - If we 
360 PRINT 


”"3) Happiness is always presen 
take the time to look.” 
"4) If you set your mind to it 


, Happiness can be found.” 


370 PRINT ”5) Happiness is where we find 
it" 

380 INPUT xl 

390 CLS 

400 PRINT "There is a tide in the affair 

s of men,” 

410 PRINT "which, taken at the flood, le 

ads on to fortune; ” 

420 PRINT "omitted, all the voyage of th 

eir life” 

430 PRINT ”is bound in shallows and in m 

iseries. ” 

440 PRINT ” ” 

450 PRINT "1) Make the most of your chan 

ce when you get it.” 

460 PRINT ”2) In many cases of failure, 

people were affected by” 

470 PRINT ” circumstances over which 

they had little control.” 

480 PRINT ”3) One who plans well will su 

rvive well under the laws of nature.” 

490 PRINT "4) Life is such that if pays 

to watch what you do before you” | 

500 PRINT ” run into trouble.” 

510 PRINT ”5) One should be on the watch 
for opportunity to knock,” 

520 PRINT ” otherwise he will miss ou 

t on going places.” 

530 INPUT x2 

540 CLS 

550 PRINT ”No man is an island, entire o 

f itself.” 

560 PRINT 

570 PRINT ”1) Everyone should consider t 
he needs and wants of others.” 

580 PRINT ”2) Use others influence to he 
lp you plan your life.” 

590 PRINT ”3) One who acts without regar 
d for others does not realize” 

600 PRINT ” that he is a social anima 
| 

610 PRINT ”4) To get where you want to b 
e in life you must realize the” 

620 PRINT ” need for help from others 
630 PRINT ”5) Although I am the captain 


of my soul, 


I must make my way” 


640 PRINT ” in life amoung many other 
captains.” 

650 INPUT x3 

660 CLS 

670 PRINT ”The test indicates that you a 
re: ” 

680 PRINT: PRINT TAB(10); 

690 ON xi GOTO 700,710,720,730 

700 PRINT "”Irresponsible”: GOTO 740 

710 PRINT “conventional and moralistic”: 
GOTO 740 

720 PRINT “practical”: GOTO 740 

730 PRINT ”"formal” 

740 PRINT TAB(10); 

750 ON x2 GOTO 760,770,780,790,800 

760 PRINT "practical and logical”: GOTO 

810 

(70 PRINT "moralistic”: GOTO 810 

(80 PRINT "conventional”: GOTO 810 

(90 PRINT "humorous and sensible”: GOTO 

810 

800 PRINT "ego-centric” 

810 PRINT TAB(10); 

820 ON x3 GOTO 830,840,850,860,870 

830 PRINT "”conventional”: GOTO 880 

840 PRINT "practical and logical”: GOTO 

880 

850 PRINT "objective”: GOTO 880 

860 PRINT "ego-centric”: GOTO 880 

870 PRINT "moralistic” 

880 PRINT 

890 PRINT "If a trait is listed twice, t 
hiss is all the” 

900 PRINT ” more indication of your pers 
onality.” 

910: PRINT? PRINT 

920 END 
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BIORHYTHM 


This Biorhythm program demon- 
strates how Quick Basic can be 
used to write a program without 
line numbers. The program is 


made up of Functions, the main — 


program, and then subprograms. 
The two functions following re- 
turn integers due to the % as in 
FNd.cycle%. The parameters 
passed to the function are 
age.days% and period%. The in- 
teger variables age.days%, and 
period% are local to the function. 
Any variable not passed is global 
unless specifically made local 
with the STATIC statement. 

B. Webster 


Melbourne Vic 
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*Bio-rhythm program to demonstrate how Quick Basic can be used to write a 
*program without line numbers. The program is made up of FuNctions, the main 
*program, and then subprograms. 


"The two functions following return integers due to the Z ie FNd.cycle~% 
*The parameters passed to the function are age.days% and period%. The 
7integer variables age.days%Z~, and period% are local to the function. 

"Any variable not passed is global unless specifically made local with the 
"STATIC statement. 


DEF FNd.cycle% (age.days%,period%) 
FNd.cycle% = ((age.days%/period%) — INT (age.days%Z/period%)) & period% 
End DEF 


DEF FNy.axis%(x.days%,period%) 
FNy.axis* = INT(SIN(x.days% / period% & 2 k& 3.14159) k 10 + 0.5) 
End DEF 


"The following arrays are shared with the main and subprograms ie made 
*global. 


Dim Shared TableZ(40, 3) 
Dim Shared d.month/Z(12) 


"The main program follows, the Call statement Calls a subprogram, and can 
"pass variables to the subprogram or from it. ie Call Age.days passes 
"d-birth” , m.birth% , y.-birthZ% , d.run% , m.erun% , y.run% to the subprogram 
"and the age.days% is returned. 


Input “Date of birth as day,month, year “sd.birth4%,m.birth%, y.birth% 

Input "Date of start of Bio-rhythm as day,month, year "s3d.run%,m.run%, y.run% 
Input "Name of person “;Name% 

Input “How many runs do you want "“3;Runs% 


Call days.month 
*The For Next loop can be indented as follows 


For Run.No% = 1 to RunsZ 
Call Age.days(d.birth%,m.birthZ, y.birth%,d.runZ,m.run%, y.run%, age.days%) 
Call Table.calc (age.days%) 
Call Graph (age.days%, Name) 
Call Date (d.run%,m.run%,y.runZ) 
*The If Then ElseIf Else End If can be used in a multiple line format 
"as follows 
If Run.NoZ/2.0 = INT (Run.NoZ/2.0) Then 
Lprint CHR$(12) 


Else Lines%A = 2 
Call Blank (Lines%) 
End If 


Next Run.NoZ% 


fall Advert 
LFrint CHR (12) 


End 
"The Subprograms follow their variable are all local except the shared array’s 


Sub days.month Static 
Data 31,26, 31,30, 31,20, 21,31, 30,31, 30,31 
For monthz% = 1 to 12 
Read d.monthZ (monthZ) 
Next month% 
End Sub 


Sub Age.days(d.birthZ,m.birthZ,y.birth%,d.runZ,m.runZ%,y.rund, age.days%) Static 
year’ = y.birthz 
age.days% = 9 
Call Leap. year (yearZ,d.monthZ(2) ) 
If (¢y.birth% = y-runZ) AND (mebirth” = m.run%)) = false THEN 
monthzZz = m.birthZ” + 1 
If month” = 132 THEN 


yearZ% = yearZ + 1 
monthz = 1 
End If 
age.days% = d.monthZ(m.birthZ”) —- d.birth~” 
Else age.days% = -—- d.birthZ 
End If 
While yearZ% <= y.runZ 
For monZ = monthZ to 12 


age.days% = age.daysZ + d.month~% (mon?) 
Next mand’ 


monthZz = 1 

year% = yearZz + 1 

Call Leap. year (year%,d.monthZ(2) ) 
WEnd 
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While monthZ% < m.runZ 
age.days% = age.days% + d.monthZ (month) 
monthZ = monthZ + 1 
WEnd 
age.days% = age.days% + d.runZ% 
End Sub 


Sub Table.calclage.days%) Static 
Dim period (3) 


period(1) = 23 
period(2) = 28 
period(3) = 33 
age’ = age.daysZ 
For colZ% = 1 to 3 


For x%Z = 1 to 40 
TableZA(x%,col%) = FNy.axisZ(FNd.cycled (ageZ%,period(colZ)) ,period(col%)) 
agetz = agez + 1 
Next “% 
age’ = age.daysZ% 
Next colzZ 
End Sub 


Sub Leap.year (year%,days.febZ) Static 
If (yearZ/4.0) = Int (yearZ“4/4.0) Then 
days.feb% = 29 
Else days.feb% = 28 
End If 
End Sub 


Sub Graph (age.days%,Name$) Static 
Dim graph$(721) 
Erase graphs 
For rowZ = 1 ta 21 
For colZ = i to 41 
If colZ% = 1 then 
graphs (rowZ) = grapht(rowZ) + "+" 
ElseIf row% = il then 
graph$(rowZ) = graphS(rowZ) + "+" 
Else grapht#(rowZ) = grapht(rowZ) + "™ " 
End If 
Next colZ% 
Next rowZ 
Dim point$(3) 
Dim pnt$(3) 


point$ (i) = "p" 

point$(2) = "e" 

point$(3) = "i" 

For xZ = 1 to 40 
For colZ = i ta 3 


rowZ = TableA(xZ%,colZ) + it 
If rowZ = 11 then 

pntSlcol%? = CHRS (ASC (point$ (col%) )-32 
Else pnt#(colZ%) = point$(col%) 


End If 
If MIDS (graphs (rowZ),xZ+1,1) <> " " then 
If MIDS (graph$ (rowZ%) .xZ+1,1) <> "+" then 
pnts(colZ~) = "k" 
End If 
End If 


graph$ (rowZ) =LEFTS (graphs (row%) .xZ)+pnt$ (col Z)+RIGHTS (graph (row) , 40-«%) 
next colZ% 
next «Z% 
BRold Frinting on esc G 
LFrint CHR$(27)3;"G":Namess 
LFrint Tab(S0) ;"FERSONAL BIORHYTHM" ;CHRS(27)3"H" 


LFrint 

LFrint “Age in days "sage.daysZz 
LFrint 

Width "LFT1:",122 

LFrint CHRS(1i5)3; "condensed print 


For colZ = i to 49 
LFrint “+ "s 
Next colZ% 


LFrint 
For rowZ = 21 to 1 step —-i 
For colZ% = 1 to 40 
LFrint MID$(graph$(lrowZ) ,col%,ids" "5 
Next colZ 
LFrint 


Next rowZ 
For col%z = 1 to 40 


LEFintk: "2 OTs 
Next colZ 
LFrint 
LFrint CHRS(18); *normal print 
End sub 
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Sub Date (d.runZ,m.rundZ,y.run%) Static 


LFrint CHRS(1i5)5 *>condensed print 
d.dateZ% = d.runZ 
m.dateZ = m.runZ 
y.dateZ = y.runZ% 


Call Leap. year (y.dateZ,d.monthZ(2)) » 
LPrint. ™ 5 
For x% = 1 to 40 
If d.dateZ <= d.monthZ(m.dateZ) then 
LFrint using "###"s;d.dateZ%; 
d.dateZ = d.dateZ% + 1 
Else 
d.date% = i 
m.dateZ = m.dateZ + 1 
If m.dateZ = 13 then 
m.dateZ = 1 
y-date% = y.dateZ% + Il 
Call Leap. year (y.dateZ%,d.monthZ (2) ) 
End If 
End If 
Next «% 
LFrint 
LFrint d.rundz3"/"sm.rund;"/"sy.runZ; Tab(110)sd.date%;"/"“sm.date%;"/"sy.date% 
LFrint “ Start date":;Tab(119)5" Finish Date" . 


LFrint CHRS (18); "normal print 
d.runZ = d.dateZ% 
m.runZ = m.datey% 
y-runZ = y.dateZ 
End sub 


Sub Advert Static 
Linesz = 4 
Call Blank (LinesZ) . 
LFrint "If you found your personal biorhythm chart beneficial and would “ 
tFrint “like a further chart please type Run Bio and answer the questions" 


LinesZz = 4 
Call Blank (Lines) 
End Sub 


Sub Blank (LinesZz) Static 
For “~“Z = 1 to LinesZ% 
LFrint 
Next «% 
End Sub 


Brian Webster PERSONAL BIORHYTHM 
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If you found your personal biorhythm chart beneficial and would 
like a further chart please type Run Bio and answer the questions 
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AMSTRAD 


FLASH 


Have you ever wanted to have 
unlimited power at your finger- 
tips? Well, this program is not 
that good but it does simulate a 
sort of magical touch. 

Every time you touch a key a 
simulated lightning flash of mul- 
ticolours scans the screen, al- 
most blinding you. The same 
happens when you use an opera- 
tion. Only it lasts longer. 

Try (cat) and watch the result. 
It creates an electrical storm. 
This is a good program to trick 
your friends with. You can tell 
them that your computer is play- 
ing up. Then tell them to press a 
key and watch their reaction. It’s 
quite amusing. 

It's also good to test out your 
sunglasses. 

P. White 
Elizabeth Park SA 


100 REM #H#H##HHHAHHHHHHH FLAZH ##HHAHHHHHH 


HHH | 

110 REM # Stephen White invention # Jan’ 
87 # 

120 ’ Causes colours to flash on the scr 
een 

130 ’ whenever something is printed. 

140 ”’ 


150 MEMORY &9FFF 

160 DATA 245,229,213,197,33,208,189,17,3 

6,160,1,3,0 
170 DATA 237,176,33,39,160,17,208,189,1, 

3,0,237,176,193 

180 DATA 209,225,241,201,245,205,37; 189, 


241,195,91,18,195,31,160 


190 ”’ 


200 FOR i=&A000 TO &A000+41 


220 NEXT i 
230 CALL &A000 


250 END 


READ d: POKE i,d 


BOUNCE 


This is an excellent program for 
physics enthusiasts. Remember 
the days in school when you 
tried the experiment with the 
strobe light, the golf ball and the 
camera, to see the effect of dis- 
tance against time? Well, you can 
forget that primitive way of deriv- 
ing a result. This new Bounce 
simulator does it all for you — 
plus more. 

You firstly specify the initial 
velocity of a ball thrown straight 
up in the air, measured in metres 
per second. Then you put in the 
co-efficient of elasticity for the 
ball, which is a measure of the 
bounciness. For realism you have 
to put in a decimal fraction 
under 1. This is because no ball 
can bounce higher than the place 
from where it was dropped. If you 
put in | this will make it bounce 
just as high as where it was 
dropped from. You can experi- 
ment with numbers larger than | 
to get some interesting results, 
but you can’t rely on these re- 
sults as it’s a contradiction of the 
law of kinetics. The next input is 
the time increment for the 
strobe. This is the space of time 
between each simulated flash on 
the ball. 

When the information has 
been entered, the screen is 
drawn up, comprising a graph of 
distance versus time filling the 
screen, with a box in the top right 


i ~- oe ee ee 
GS te oo co Do ori oD ~ CO 


hand corner showing your input. 
The information is then simu- 
lated into graphics giving you a 
pictorial view of what you want. 
This program saves a lot of 
time and setting up, not to men- 
tion film for all the blunders that 
are destined to occur. 
M. Kostecki 
Elizabeth Park SA 


BOUNCE SIMULATOR 
Strobe: 8,1 sec. 
Velocity: 18 m/s 
Elasticity: @.8 


3g ple oFn pbs 
100 REM ##### BOUNCE SIMULATOR ##### 
110 REM # Miroslav Kostecki # Dec’86 # 


130 MODE 2: INK 1,0: INK 0,13: 
140 PRINT: PRINT: PRINT: ZONE 5 


BORDER 13 


150 PRINT ,,,,”BOUNCE SIMULATOR”: PRINT: 
PRINT 
160 PRINT ,” This simulation lets you sp 


ecify the initial velocity” 


21 


AMSTRAD PROGRAMS 


170 PRINT ,”of a ball thrown straight up 
, and the coefficient of” 

180 PRINT ,”elasticity of the ball. 
use a decimal fraction” 

PRINT ,”"coefficiency (less then 1).” 
PRINT 

210 PRINT ,” You also specify the time i 
ncrement to be used in” 

220 PRINT ,”‘strobing' the ball’s flight 


Ple 


(try .1 initally).” 
230 PRINT 
240 INPUT ” Time increment (sec) ";S2 
250 PRINT 
260 INPUT ” Velocity (m/s) ";¥v 
270 PRINT 
280 INPUT ” Elasticity Coefficient "”; 
c 
290 CLS 
300 SYMBOL AFTER 230 


310 SYMBOL 230,&X101,&X101111,&X1011111, 
&X10111111,8&X10111111,8&X1011111,&xX101111 
,&X101 

320 SYMBOL 231,8&X11100000,&X11111100,&X1 
1111110,255,255,&X11111110,&X11111100,&X 


11100000 
330 FOR i=0 TO 20 
340 


NEXT i 
a$= "METERS” 


MOVE 30,i1*20+31: 


TAG: MOVE -—3-(1i<10)%8,i1*20+36: PRIN 


DRAW 25,i*20+31 


TAG: MOVE 0,225-i%20: PRINT MID$(a$ 


380 FOR i=1 TO LEN(a$) 

390 

ry re i ee 

400 NEXT i 

410 MOVE 30,30: DRAW 30,400 


MOVE 31,24: 
FOR i=0O TO 10 


NEXT i 


MATRIX.EIG 


Homework, homework, 
homework... that’s all you seem 
to get, isn’t it kids? I know the 
feeling. | had it up to my ears, 
especially maths. However, have 
no fear as Matrix Solver is here. 
This life-saving program solves 
any matrix operation you may 
ask with the greatest of ease, 
which is a bit different from the 
long agonizing minutes on one 
question done manually. The 
functions are as follows: 


a) Matrix multiplication. 
b) Scalar multiplication. 
c) Matrix addition. 

d) Matrix subtraction. 
e) Row reduction. 

f) Determinant finding. 
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MOVE i*60+30, 30: 
MOVE i*60+60,30:DRAW ix*60+60, 28 
MOVE i*60+19+(i=10)%4,20: PRINT i; 


DRAW 31,400 


DRAW i1*60+30,24 


You simply enter the matrices 
and the function you want per- 
formed and wait a second for the 
answer. 

These are only a few of the 
functions that can be performed. 
By using other direct functions 
you can come to the answer. For 
example, to subtract you would 
multiply the matrix by negative 
one and add the other matrix. 

The good thing about this pro- 
gram is that you don't have to 
know anything about matrices. 
Nothing at all! That is, of course, 
except for the question. The 
program is not only great for kids 
but also the teachers as well. You 
teachers out there, don't you 


480 MOVE 30,30: DRAW 640,30 
490 a$=”SECONDS” 

500 FOR i=1i TO LEN(a$) 

510 TAG: MOVE i*30+192,12: 
$31,103 

520 NEXT i 

530 MOVE 30,398: DRAW 639,398 
540 DRAW 639,30: MOVE 638,30: 
98 

550 MOVE 
R”s 

560 MOVE 
Cus 

570 MOVE 
/s"; 

580 MOVE 
590 MOVE 


PRINT MIDS (a 


DRAW 638,3 


500,390: PRINT “BOUNCE SIMULATO 


500,370: PRINT ”Strobe: ”";s2; "se 
500,350: PRINT "Velocity: ";v; "m 


PRINT "Elasticity: ";c¢; 
DRAW 486,308: DRAW 639 


500,330: 
486,398: 


MOVE 487,398: DRAW 487,308 

ORIGIN 0,0,32,640,396,32 

GRAPHICS PEN 1,1 

num=10/s2: t=0: b$=CHR$ (230) +CHRS (23 


DIM ball (num+num/20,2) 
FOR i=0O TO num+num/20 
ball (i,1)=22+i1x*600/num 
yEvet—4. Oe HL 
IF v<0.000001 THEN 750 
690 IF y<O THEN t2=v/4.9: 
: SOUND 1,50,1: GOTO 670 
700 ball (i,2)=y*20+47 


t=t-t2: v=vke 


710 MOVE ball(i,1)-1,ball(i,2),0: PRINT 
b$; 

720 MOVE ball(i,1),ball(i,2),1: PRINT b 

$; 

730 t=t+s2 

740 NEXT i 

750 MOVE 30,398: DRAW 639,398 

760 DRAW 639,30: MOVE 638,30: DRAW 638,3 

98 

770 GOTO 770 


100 REM #A#HHHHHRHHAHHRHHHARRRHHHHARAR AH 
# 

110 REM ### MATRIX ARITHMETIC PACKAGE ## 
# 

120 REM # Miroslav Kostecki ## 18.12.86 
# 

130 REM ##AHFHHHHHHHHHHHRHRHHHRHHHRRHHHR AH 
# 

140 ”’ 

150 varnum=10’ 
ables 

160 size=10’ ...Maximum number of Rows o 
yr Columns per Matrix 

170 DIM mat (varnum,size,size) ,temp(size, 
size) ,row(varnum) ,col (varnum) 

180 CLS: PRINT 
190 PRINT ” 
200 PRINT 


-.e- Maximum number of vari 


COMMANDS” 


AMSTRAD PROGRAMS 


210 PRINT ” a -Print a matrix.” 
220 PRINT ” a= -Entry.” 

230 PRINT ” a=b —Assignment betwe 
en variables.” 

240 PRINT ” a=b¥c -Matrix multiplic 
ation.” 


250 PRINT ” a=b.<real> -Scalar multiplic 
ation. ” 


260 PRINT ” a=btc -Matrix addition. 
270 PRINT ” a=b: -Row reduction. ” 

280 PRINT 

290 ”’ Get command and do as asked... 
300 INPUT ” #”,in$ 

310 IF in$="quit” THEN END 

320 IF in$="help” THEN 180’ ...show oper 
ations ie 

330 p=1’ ...Position in string 


340 GOSUB 2110’ ...Get lst variable 


350 IF x=0 THEN 1750’ ...not variable er 
ror 

360 a=x 

370 IF p-i= LEN(in$) THEN 700’ ...show a 


matrix 


380 GOSUB 2040’ ...skip spaces 


390 IF MID$(in$,p,1)<> "=" THEN 1770 
400 IF p=LEN(in$) THEN 560’ ...get a mat 
rix 


410 GOSUB 2040’ ...skip spaces . 
IF MID$(in$,p,1)=”"”" THEN 560’ ...spa 
ces after = so get matrix 


430 p=pt+l’ ...point to next variable 

440 GOSUB 2110’ ...get variable number i 
n x 

450 IF x=0 THEN 1750’ ...not variable er 
ror 

460 b=x’ ...first argument of source 

470 IF row(b)=0 THEN 1830’ ...unassigned 


error 


480 IF p-1= LEN(in$) THEN GOSUB 800: GOT 


O 290’ ...straight assighnment 

490 ’ Must be an operation... 
500 GOSUB 2040’ ...skip spaces 

510 IF MID$(in$,p,1)="+”" THEN 910’ ...ma 


trix addition 

520 IF MID$(in$,p,1)="%”" THEN 1080’ ...m 
atrix multiplication 
530 IF MIDS (in$,p,1)=”. 
calar multiplication 
540 IF MID$(in$,p,1)=”: 
ow reduction 

550 GOTO 1860 

560 ’ 

570 ” Get a matrix... 
580 INPUT "Number of rows ”;row(a) 

590 IF rowl(a)<1 OR row(la) >size THEN 580 
600 INPUT "Number of columns ”;col (a) 
610 IF col(a)<1 OR col(a)>size THEN 600 
620 ”’ get array... 

630 FOR i=1 TO row(a) 


”" THEN 1370’ ...s 


PU THEN 19510" oc 


» 


640 FOR j=1 TO col (a) 

650 INPUT ;mat(a,j,i): PRINT, 
660 NEXT j 

670 PRINT 


hate the arduous task of working 
out the right matrices to an an- 
swer for a test or exam? This 
work can be halved by the matrix 
package. Using the functions you 
can enter the desired answer and 
the computer will manipulate it 
for you. 

This program is easy to expand 
on if your requirements are not 
met, and if you don’t have an 
Amstrad, no need to panic, as 
Matrix will work on most Basic 
computers. 

M. Kostecki & P. Vermeer 
Elizabeth Park SA 


680 NEXT i 

690 GOTO 290 

700 ’ 

10 ’ Print a matrix... 
720 IF row(a)=0 THEN 1830’ 
error 


(30 FOR i=1 TO row(a) 


-..unassigned 


(40 FOR j=1 TO col (a) 

(50 PRINT mat(la,j,i), 

760 NEXT j 

770 PRINT 

(80 NEXT i | 

790 GOTO 290 

800 ’ 

810 ” Straight assighnment... 


820 FOR i=1 TO row(b) 


830 FOR j=1 TO col (b) 

840 mat(a,j,i)=mat(b,Jj,i) 
850 NEXT j 

860 NEXT i 


870 row(a)=row(b) 
880 col (a)=col (b) 


890 RETURN 
900 ’ 
910 ’ Matrix addition 


920 IF p=LEN(in$) THEN 1790’ 

argument error 

930 p=prtl 

940 GOSUB 2110’ ...get 3rd arg in x 

950 IF x=0 THEN 1750 

960 ” need b and x to have same diment 
ions 

970 IF row(x)=0 THEN 1830 

980 IF row(x)<> rowlb) OR col (x)<>col (b) 
THEN 1810 | 

990 FOR i=1 TO row(b) 


..-missing 


1000 FOR j=1 TO col (b) 

1010 mat(a,j,iJ=mat(b,j,i)+mat(x,j,i)+ 
i=] 

1020 NEXT j 


1030 NEXT i 

1040 row(a)=row(b) 
1050 col (a)=col (b) 
1060 GOTO 290 


1070 

1080 ”’ Matrix multiplication... 

1090 ’ check for third argument 

1100 IF p=LEN(in$) THEN 1790’ ...missing 
arg. error 


23 


1110 


1120 GOSUB 2110’ .. 


1130 


AMSTRAD PROGRAMS 


p=p+l 
get third arg in x 
IF x=0O THEN 1750’ ...bad variable n 


ame error 


1140 


rk... 


1150 


? check that rows/columns will wo 


IF row(x)=0 THEN 1830’ ...unassigne 


d error 


1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


IF col (b)<>row(x) THEN 1880 
FOR i=1 TO row(b) 
FOR j=1 TO col (x) 
s0=0 
FOR k=1 TO row(x) 
sO=s0+mat (b,k,i) mat (x,j,k) 
NEXT k 
temp (j,i)=s0 
NEXT j 
NEXT i 
: assign result to destination a. 


FOR i=1 TO row(b) 

FOR j=i1 TO col (x) 
mat(a,j,i)=temp(j,i)+1-1 

NEXT j 

NEXT i 

: assign correct dimentions to a. 


row (a) =row(b) 
col (a)=col (x) 
GOTO 290 

9 


: Scalar multiplication 

IF p=LEN(Cin$) THEN 1790 

p=ptl 

nO$S=RIGHTS (in$,LEN(in$)—-p+1) 

ni=VAL (n0O$) 

FOR i=1 TO row(b) 

FOR j=1 TO col (b) 
mat(a,j,i)=nix¥mat(b,j,i) 
NEXT j 

NEXT i 

row(a)=row(b) 

col (a)=col (b) 

GOTO 290 


r Row reduction... 
IF row(b)<2 OR col(b)<2 THEN 1900’ 


..e-too small error 


1530 


IF row(b) >=col(b) THEN 1920’ ...Err 


Or *#¥* 


1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 


GOSUB 800 
FOR i=1 TO row(a) 
yl=mat(a,i,i): IF y1=0 THEN 1650 
FOR j=1 TO row(a) 
IF j=i THEN 1640 
zi=mat(a,i,Jj) 
FOR k=1 TO col (a) 
mat(a,k,j)=mat(la,k,j)-matla,k,i) 


¥z1/yl 


1620 
1630 
1640 


NEXT k 
mat(a,i,j)=0 
NEXT j 


1650 NEXT i 


een RR eR SS SSS SS SS SS SS SS sss STs es is SED 
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1660 FOR i=1 TO row(a) 

1670 IF ABS(mat(a,i,i))<0.0001 THEN 172 

0 

1680 FOR j=row(a)+1 TO col (a). 

1690 mat(a,j,i)=mat(a,j,i)/mat(a,i,i) 
1700 NEXT j 

1710 mat(a,i,i)=1 

1720 NEXT i 

1730 GOTO 290 

1740 ’ 

1750 PRINT ” "”;MIDS(in$,p,1);” is not a 
variable” : 

1760 GOTO 1950 

1770 PRINT ” Missing equals...” 

1780 GOTO 1950 | 

1790 PRINT ” Missing argument” 

1800 GOTO 1950 t oF 

1810 PRINT ” Cannot add matricies of di 
fferent dimentions” 

1820 GOTO 290 

1830 PRINT ” Unassigned variable” 

1840 p=p-1 | 

1850 GOTO 1950 

1860 PRINT ” Not an operation” 

1870 GOTO 1950 | 

1880 PRINT ” Cannot compose due to mism 
atched codomain and domain” | 

1890 GOTO 1930 ; | 

1900 PRINT ” Too small to reduce” 

1910 GOTO 1930 

1920 PRINT ” Too many rows” 

1930 PRINT CHR$(7);:GOTO 290 

1940 ’ 7 

1950 PRINT ” ”;CHRS(7);in$ 


PRINT ” ”; 
IF p=1 THEN 2010 
FOR i=1 TO p-1 


PRINT ” ">. 
NEXT i 
PRINT ”*” 
GOTO 290 
: Subroutene to skip spaces... 
IF p=LEN(in$) THEN 2100 
‘ OK to see if there are some spa 
IF MID$(in$,p,1)<>" ” THEN 2100’ .. 


a space 


p=p+l 

GOTO 2070 

RETURN 

’ ...Get a variable name in x from 
returning O if error 

, uses in$,p,x 

GOSUB 2040’ ...skip spaces 


m$=MID$(in$,p,1): IF m$<"a” OR m$>” 


z” THEN x=0: GOTO 2200 


2170 
2180 
2190 
2200 


x=ASC (m$) -ASC ("a”) +1 

IF x>varnum THEN x=0: GOTO 2200 
p=p+l 

RETURN 


BRICKS 


Bricks is a game where you must 
knock down a row of bricks with a 
‘pall’. You use the joystick or key- 
board to control the ‘bat’ to hit 

the ‘ball’. 

Pressing ‘Q’ moves the bat up 
while pressing ‘A’ moves the bat 
down. ‘Y’ or pressing the fire but- 
ton restarts the game. 

D. O'Connor 
Mt Gambier SA 


AMSTRAD PROGRAMS 


DIM s(56,22) 

GOSUR 990 

x=5 
Y=INTCORND( TIME) *¥19)4+<3 
di=1 
Q2=INTCORNDC TIME) #2)+1 
IF de=2 THEN d2=-1 


, move ball 

IF ysl THEN dz=-1 
IF x218 THEN di=-1 
IF ytd THEN de=1 
IF x22 THEN 850 
LOCATE xyy 

PEN 

PRINT CHRS( 143) 5 


y=ytd2 


TF x=3 AND (y=yl OR y=yl+l OR y=ylte) THEN di=1:SOUND 7,40@0.5,15,0,0,5 


IF y=yitli THEN y=y-1:G0TO 320 
IF y=yi THEN y=yti1 

LOCATE x sy 

PEN 5 

PRINT CHRS( 1435) 5 

IF x2ii4 THEN 59 

hit bricks 

IF stx-13,y/=1 THEN <uau 

SOUND 3,4000,140,12,0,0,14 
sc=sctl 

LOCATE #1,12,1 

PRINT#L,sc 

Ss(x-1L3,yd=l 

IF dl=-1 THEN di=i ELSE di=-1 
IF sc/126=INT(SC/126) THEN 110 
TF sc/63e2tINT¢Sc/63) THEN 55@ 
LOCATE xy 

PEN @ 

PRINT CHRS(143) 5 

FOR x=1 TO S@WINEXKT 

w=S 

di=1 

IF y2iS THEN y=y-i ELSE y=yrl 
GOTO 200 

7 move bat 

J=TOY (0) 

J$=BINS( 5,5) 

1$=UPPERS(CINKEYS$ ? 

IF i="Q" OR MID$(9$,5,1)="1" THEN yl=yi-1:iIF yi THEN y1l=2 


IF i$="A" OR MID$(5$,4,1)="1" THEN ygl=yltiilF yis20 THEN y1l=20 


y2=4 
IF xi=yl THEN x2=4 ELSE xi=0 


LOCATE Zyxl 

PEN x2 

PRINT CHRS( 143) 
LOCATE 2yx1l+1 
PRINT CHR$(143) 
LOCATE 2, x1itz 
PRINT CHRS(143) 
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73@ LOCATE 2,y1 118@ DRAW 610,46 

740 PEN y2 119@ DRAW 38,46 

75@ PRINT CHR#( 143) 1200 WINDOW #151, 20, 24,25 _ 
76@ LOCATE 2,y1+1 1218 WINDOW #0,1,20,1,23 
77@ PRINT CHR$( 143) L220 PRINT#1," Score: "sc 
780 LOCATE Z,y1+t2 1230 y1l=10 

79@ PRINT CHRS(143) 1240 «1=yl 

800 x1=y1 1250 PEN 4 

818 GOTO 200 1260 LOCATE 2,y1 

820 ° 12278 PRINT CHRS( 143) 
830 ’ game over 1280 LOCATE 2,yitl 

840 ” — 1290 PRINT CHR#(143) 
85@ FOR i=i To 5 1300 LOCATE 2,y1itzZ 

860 SOUND 3,4000,10,12,0,0,10 131@ PRINT CHR#( 143) 
87@ NEXT 1320 FOR i=2 To 22 STEP 2 
B88@ PEN #1,5 i330 PEN 2 

8908 LOCATE #1,4,2 1340 LOCATE 14,1 

299 PRINT#1,"Play again 7"3 135@ PRINT CHR#(143) 
910 CLEAR INPUT 13460 LOCATE 165i 

920 i$=UPPERS ( INKEYS) 137@ PRINT CHR®(143) 
940 LF ig="" THEN 92M 1380 LOCATE 1851 

S40 IF 1$="N" THEN MODE LERPEN Lt PEND 139@ PRINT CHR$(143) 
S549 [FF 1$="¥" OR 1$="X" THEN RUN ELSE YE 1400 IF i=22 THEN 1470 
968 ” 1410 LOCATE 15,i+1 

778 ° draw board 142@ PRINT CHR®(143) 
PRM’ 1430 LOCATE 17,i+1 

791 MODE @ 144@ PRINT CHR#(143) 
1908 INK 0,8 1450 LOCATE 19,i+1 
1@10 INK 1,6 1466 PRINT CHRS( 143) 
1020 INK 2,15 1470 PEN 3 

1@3@ INK 3,10 1480 LOCATE 15,i 

1240 INK 4,9 149@ PRINT CHR#( 143) 
10580 INK 5,4 1500 LOCATE 17,i 

106@ INK 6,7 151@ PRINT CHR#(143) 
1@7@ PAPER @ 1520 LOCATE 19,1 

1080 PORDER © 1530 PRINT CHRS( 143) 
18908 GRAPHICS PEN 1 1540 IF i=22 THEN 1616 
1100 PEN #1,6 1950 LOCATE 14,i+1 
111@ FOR X=1 TO 6 1568 PRINT CHR( 143) 
1120 FOR yY=1 To 22 1597@ LOCATE 16,i+1 
113@ Six, Y= 159@ PRINT CHR#( 143) 
114@ NEXT:NEXT 1598 LOCATE 18,i¢1 
115@ PLOT 8,46 160@ PRINT CHRS( 143) 
1140 DRAW 8,384 ié1@ NEXT 

117@ DRAW 610,384 1628 RETURN 
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AMSTRAD PROGRAMS 


CHASE 100 REM H##H# CHASE ### 

This is quite an entertaining 110 sen Paul Vermeer. Jan’86 

game which will pass the time 120 

quite quickly. Five wild dogs have 130 DIM a(10,20) ,e(21),f£ (21) 

been eating the chickens from 140 MODE 1: INK 0,13: INK 1,3 

your farm and you haven't been | 150 ENV 1,=9,2000: ENT -1,6,3,1 

able to shoot them yet. 160 ENV 2,127,0,0,127,0,0,127,0,0,127,0, 
So you've set a trap for them. 

You did this by erecting an elec- vs 1 oe o50 " 

tric fence of death-high amper- 170 ENV 3,=9,9000 

age, around a field, hoping to 180 SOUND 1,1000,0,12,2 

capture them in there. However, 190 SOUND 2,900,0,12,2 

as you turn to walk out the gate 200 LOCATE 1,6 

and wait for the dogs, they walk 210 PRINT * MOVES”: PRINT 

in and the wind blows the gate 220 PRINT ” 7 8 9": PRINT 

ue .. You're trapped in with 230 PRINT * 4 °+CHR$(248)+”" 6": PRINT 

240 PRINT ” 1 2 3” 


Fortunately, the dogs haven't 


eaten for a while and are sick 250 WINDOW 8,40,1,25 
from starvation. This means that 260 PRINT: PRINT TAB(8); “CHASE” 
they can’t run very fast. The fast- 270 REM set up the game 
est they can run is equal to your 280 g=0:27=0 
speed and they can’t suddenly 290 FOR b=1 TO 10 
stop. They have to slow down for 300 FOR c=1 TO 20 
quite a few meters before coming 310 ae, 
to a halt. oe Pees 
You have no weapons so the 320 IF b=1 OR b=10 THEN a(b,c)=1 
only way you can kill them is to 330 IF c=1 OR c=20 THEN a(lb,c)=1 
somehow make them run into 340 NEXT c 
the fence. This is done as the dia- 350 NEXT b 
gram shows: 360 ’ 
ELECTRIC FENCE 370 FOR d=1i TO 21 
| 380 b=INT(RND*8) +2 
cy 390 c=INT(RND¥18) +2 
400 IF atb,c)<>0O THEN 380 
DOG 410 alb,c)=1 
ae 420 IF d<6 THEN a(b,c)=2 
X 430 IF d=6 THEN a(b,c)=3 
440 e(l(d)=b 
you 450 fld)=c 
460 NEXT d 
The dogs, when next to you, 470 ’ 
move in the same dection as «480 REM print pattern 
tance between you and them. $70 (Ps (0)= > p$(1)=CHR$ (207) 
Therefore, you can run them into 500 p$(2)=CHR$(181): p$(3)=CHRS (248) 
the fence blocks. 510 LOCATE 1 ’ 5: FOR b=1 TO 10 
There is a neat setup for the S20 ag="": FOR c=1 TO 20 
screen with the field in the mid- 530 ag=at+p$(alb,c)): NEXT c 
dle and just to the left of it, a 540 PRINT a? 
map of direction keys. These keys 550 NEXT b 
are the number function keys, or 560°? 
if you want more of a challenge, 570 REM make move 


try the normal numbers. 


If you answer ‘no’ to having an- 580 b=e (6) 
other game at the end of the pro- © 990 c=f (6) 
gram you get a summary of the 600 a(b,c)=0 
whole set of games you played. 610 y=VAL(INKEY$+” ”): IF y=0 THEN y= 
The summary includes how many 620 ON y GOTO 650,650,650,660,720,660,63 
games you won, how many 0.630.630 
games the computer won, your 630 heel 
average and the computers aver- 
age. 640 GOTO 660 

650 b=b+l 


Experimenting may give you 


interesting results. For instance, 660 ON y GOTO 670,720,690,670,720,690,67 


change the amount of dogs from 0,720,690 

five to ten and then try to play. 670 c=c-l 

That's what | call challenging! 680 GOTO 720 
P. Vermeer 690 cec+tl 


Elizabeth Downs SA 700 ’ 


AMSTRAD PROGRAMS 


REM Calculate the results 
IF a(b,c)=1 THEN 1010 

IF a(b,c)=2 THEN 1040 
a(b,c)=3 

e(6)=b 

f (6)=c 

FOR d=1 TO 5 

IF a(e(d) ,f(d))<>2 THEN 940 
ale(d),f(d))=0 

IF e(d)>=b THEN 820 
e(d)=e(d) +1 

IF e(d)<b THEN 840 


1010 GOSUB 1170: PRINT: PRINT ”You touch 
ed the fence.” 

1020 29=z9+1 

1030 GOTO 1070 

1040 GOSUB 1170: PRINT: PRINT ”You have 
been destroyed.” 

1045 29=z9+!1 

1050 GOTO 1070 

1060 PRINT: PRINT ”***YOU DESTROYED THE 
ENEMY***” 

1065 z8=z8+l1 


830 e(d)=el(d)-1 


840 IF f(d)>=c THEN 860 


850 fld)=f (d)+1 


860 IF f(d)<=c THEN 880 


870 f (d)=f (d)-1 


880 IF ale(d), f(d))=3 THEN 1040 


1070 PRINT "Want to play again (y or n)” 


’ 
1080 INPUT ys 
1090 IF y$="y” THEN 140 


1100 PRINT ”Computer won: "3;29;"”", "the h 


uman won: ”;28 


1110 PRINT "Computers average: "3z9/(z9+z 


890 IF ale(d), f(d))=0 THEN 910 8): PRINT”The humans average: ";2z28/(29+z8 
900 g=g+l ) 
910 IF ale(d), f(d))<>0 THEN 930 1120 PRINT 


920 alel(d) ,f (d))=2 


930 IF g=5 THEN 1060 


940 NEXT d 

950 ” 

960 GOTO 510 
1000 GOTO 1070 


CHARACTER 
ENLARGER 


Don't you get annoyed when you 
sit down to draw up graphics for 
enlarged characters, knowing its 
going to take you at least three 
hours, and a lot more if you have 
a lot of characters? Why, if you 
wanted to do the graphics for the 
entire alphabet — only 5 times 
larger, it would take about 15 
hours. 

Character Enlarger eradicates 
the need for this wasting of pre- 
cious time, by doing it all itself in 
the space of a few seconds. You 
simply type in the letter, location 
and size (relative to the normal 
size), and it draws it up in which 
ever colour you specify. 

In the adjoining program, the 
subroutine is the part which 
does the actual enlarging of the 
characters and the rest of the 
program is a demonstration. 
Therefore, you only need to type 
the subroutine into your pro- 
grams. 

The demonstration is very 
striking to look at. You type in 
the sentence you want and the 
size and sit back watching the 
program go to work in front of 
your eyes. 

M. Kostecki & P. Vermeer 
Elizabeth Park SA 
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1130 PRINT "Hope you dont feel fenced in 


1140 PRINT "Try again sometime. ” 


1150 WINDOW 1,40,1,25 
1160 END 


1170 SOUND 135,100,0,13,3,1,20 


1180 RETURN 


10 ’ ### Character Enlarger ### 

20 ’ Miroslav Kostecki 18.12.86 

30: 7 

40 DEFINT a-z 

50 DIM a(8,8)’ to store a character 

60 INPUT "How many times larger do you w 
ant your sentance”; size 

7O INPUT "What is your sentance”; sentan 
ce$ 

80 ’ 

90 MODE 1 

100 INK 1,0: INK 2,6: INK 3,2 

110 dots=16*size 

120 FOR size=1 TO size 

130 inc=size-—-INT(size/3)*3+1 

140 jj=l 

150 FOR dn=300-size*4 TO dots STEP -dots 
160 FOR ac=sizex4 TO 639-dots STEP dots 
170 aS=MID$ (sentance$,jj,1) 

180 JJ=Jj+i: IF jj-2=LEN(sentance$) TH 


190 GOSUB 1000’ put enlarged character 
200 NEXT ac,dn 

210 NEXT size 

220 ’ 


230 GOTO 230 
240 ’ 
1000 
1010 
larged : 
1020 ’ | . 
dn = 
1030 ” 
er 

1040 ’ 


down position 


1050 ’ 


FOR x=0 TO 7 
FOR y=0 TO 7 


NEXT y,x 


SPEED READER 


This ...uh... sentence 
says...um...this...is 
a...great...um... program — 
having trouble like this reading? 
No need to fear — this program 
gives you heaps of practice at 
reading, and after a while you 
may become faster than your 
friends. | 

Don't get me wrong. This is not 
a highly acclaimed medical pro- 
gram. It’s not guaranteed. All | 
know is that it’s improved the 
speed of my reading and that it 
will improve yours too, if you use 
it properly. Just half an hour 
every day should do the trick. 

Now you probably don’t even 
know what I’m babbling on about 
because | haven't even talked 
about what the program does 
yet. Don’t worry, we'll now rectify 
that situation. 

The screen is set up as in the 
adjoining picture. The sentence 
of your choice moves from the 


MODE 2 
LOCATE 9,4: 
INK 0,13: 


practice!!” 


"Random delay 


GRAPHICS PEN inc 


WINDOW 20,80,1,25 | 

LOCATE 9,3: PRINT “SPEED READER” 
PRINT STRING$ (12,208) 
INK 1,0 

a$="This is a sentence for your read 


AMSTRAD PROGRAMS 


‘Enlarger subroutene 
"takes variables 


-..-Size = times en 
-..ac = across , 
--inc = ink numb 

a% = characte 


a(x,y)=TEST( act+x*¥2 ,dn-y*2) 


TAG: MOVE ac,dn: PRINT a8; 


right hand side of the box to the 
left very quickly. You're then 
asked to type in what that sen- 
tence is. If you're wrong, the sen- 
tence repeats the sequence but 
at a slower pace. This routine 
continues until you get it right. 
When you do get it right, the 
computer tells you how many 
‘specks’ it took you. Specks are a 
measurement used by me, the 
programmer. 

The best thing to do is get 
someone else to type in a sen- 
tence for you without your see- 
ing. This means that you don't 
know what it is and you can't 
cheat. Or, by slightly modifying 
the program you can make it 
easier. By adding some data in 
the form of sentences the com- 
puter can randomly pick out a 
sentence to test you on. 


Anyway, | hope you succeed as’ 


reading can be the greatest en- 
joyment in the world. 
Paul Vermeer 
Elizabeth Park SA 


REM ##### SPEED READER ##### 
REM # Paul Vermeer. Jan’87? # 


RANDOMIZE TIME/255 MOD 999 


b$=STRING$(10,” ”) 


1140 
1150 
1160 
1170 PLOT 
1180 al(x,y)=t 
1190 NEXT y,x 
1200 ”’ 


FOR x=0 TO 7 
FOR y=0 TO 7 
t=TEST( ac+x*2 
actx*2 


,dn-y*2) 
,dn-y*¥2,a(x,y) 


}=O THEN 1280 
TO size*2-2 STEP 2 


1210 FOR x=0 TO 7 
1220 FOR y=0 TO 7 
i230 IF a(x,y 
1240 FOR xx=0 
1250 

(x,y) 

1260 

size*2-2) 

1270 NEXT xx 


1280 NEXT y,x 
1290 ’ 
1300 RETURN 


"border 
290 
12,154) +CHR$(1 
300 LOCATE 8,1 
(A267 
310 LOCATE 8,1 


MOVE 0,0,s: 
DRAW 0,398: 
IF RND<0.98 THEN 240 


LOCATE 8,9: 


DRAW 0,0: s=s MOD 


56) 
0: 


| es 


(12,154) +CHR$ (153) 


GOSUB 490 
g 


360 
+(sp>5) 
370 LOCATE 10, 


NEXT i 


PRINT: PRI 
INPUT ” 

IF an$<>a$ 

Try 
sp=sp¥1.1+2: 

OTO 130 

440 PRINT ” 
*) 

450 PRINT ” 
ks!” 

460 PRINT ” 
do it in less 

470 END 

480 ’ 


490 ENV 1,=9,2000: ENT - 


500 ENV 2,127, 
0,127,0,0 


FOR j=1 TO sp: 


c$=b$+a3+b$ 


10: 
NEXT j’delay 


NT: PRINT 
What did it say”;an$ 
THEN PRINT: PRINT ” 


again...a little slower this time. 


PLOT act+x*2¥sizet+xx,dn-y*2*¥size,a 


DRAW ac+x¥2%size+xx,dn—-y*2*size- ( 


DRAW 639,0: DRAW 639,398 
2+1 


PRINT CHR$ (150) +STRINGS ( 
PRINT CHR$ (149) +STRINGS 


")+CHR$ (149) 
PRINT CHR$(147)+STRINGS 


'’scan the sentance across the window 
FOR i=1 TO LEN(a$)+13 STEP 3+(sp>10) 


PRINT MID$(c$,i,10); 


NO 


9. 
e 


FOR i=1 TO 1000: NEXT i: G 


THATS RIGHT”+STRINGS (30,” 


Your speed was ";sp; 


” 


spec 


Next time I expect you to 


specks!” 


1,6,3, 
0,0,127,0,0,127, 


510 ENV 3,=9,9000 


520 SOUND 135, 
530 RETURN 


100,0,13,3,1,20 


1 
0:50,127,0;, 
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APPLE 


AMAZING 
ADVENTURE 


You are Trasher, a famous adven- 
turer. It is your mission to blow 
up the residence of an evil ruler, 
Antrax. He rules the once peace- 
ful village of Partomina, which is 
in the other side of your planet. 
You are armed with a sword, 
plate mail armour, shield and a 
backpack. Your transport is a 
black stallion who you call Thun- 
dar. Good luck on your | 
adventure. 


G. Everitt 
Weston ACT 
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inc, 
=O) 

at gt 
ares) 


SEO 


2 7t) 


HOME 

PRINT “#8e20MAZING ADVENTURE eee" 

PRINT | 

ERINT “YOU ARE TRASHER A FAMOUS ADVENTURER, " 

PRINT “YOU ARE ON & MISSION TO BLOW UF THE RESIDENCE OF AN EVIL RULE 
R" 

ERIMT “HIS NAME IS ANTRAX THE RULER OF THE ONCE PEACEFUL VILLAGE OF 
‘PARTOM UNG WHICH TS ON THE OTHER SIDE GF YOUR PLANET. ! 

PRINT “IT was THE PEASANTS OF THE VILLAGE (HAT ASEED YOU TO FALL THE 
REIGN OF ANTRAX 

PRINT “YOU ARE ARMED WITH & SWORD, FLATE MAIL ARMOR,SHIELD AND a STUR 
DY BACKPACK." | 

ERINT "YOUR TRANSPORTATION WILL BE A BLACK STALLION WHO YOU CALLED 
THUNDAR ‘"' | 

FRINT = FRINT “PRESS RETURN TO CONTINUE. " 

INPUT S# 

FRINT "NOW LETS STARTIHFt" 

PRINT “YOU STAND ON & WINDSWEFT CRAG OVERLOGEING THE VALLEY OF CYCLO 
NES." 

PRINT “YOU MOUNT UF ON THUNDAR AND G&LLOF OFF TO FAME ® FORTUNE. " 
FYINT "AS YOU SPEEDING ACROSS THE VALLEY YOU COME ACROSS A OLD WOMA 
N GROVOLLING OVER A DEAD CHILD." 
PRINT “YOU DISMOUNT OND WALK OVER TO HER.WHEN YOU ARE ABOUT 3 FEET 
AWay SHE JUMPS AND CHARGES YOU WITH A CANE SWORD." 
PRINT “YOU BARELY MANAGE TO DODGE THE SHARF FOINT OF HER CANE." 
ME&INT “AFTER HER CHARGING (AND MISSING) SEVEN TIMES YOU MANAGE TO GR 
AR HER SWORD, THROW IT AWAY AND CALM HER DOWN. " 
FRINT “yOu ASk HER NAME. THE OLD WOMAN REPLIES. ‘MY 
SHE ANSWERS QUICKLY. ; 
ERINT = PRINT “PRESS RETURN TO CONTINUE" 

INFUT S# _ 
FRINT "“GETER GNSWERING YOU THE OLD HAG SCUTTLES OFF ACROSS THE CURV 
ED VALLEY. " ys 
ERINT “IF YOU CHOOSE TO FOLLOW HER PRESS (F) OR (>) TO CONTINUE" 
INPUT Z# Se 

IF z# = "F" THEN GOTO Soo 

IF zZ# = "CC" THEN GOTO 230 

GOTO 180 

PRINT “YOU DECIDE THAT THE OLD WOMAN IS NOT WORTH WASTEING TIME, aN - 
SO YOU FRESS ON ALONG THE VALLEY." 

PRINT “GETER MANY HOURS OF TRAVEL YOU DISCOVER THAT YOU ARE TAD: 1 FIR 
ED TO CONTINUE SO YOU DECIDE TO REST UNDER & MINIQFOLIS TREE. «.- 
YOU SADDLE UF THUNDAR,GATHER YOUR THINGS AN 


MAME IS @ENDALA’. 


PRINT “WHEN MORN BREAKS 
D START ON YOUR MISSION ONCE MORE." 

PRINT "SOON YOU HAVE IN SIGHT A SMALL TOWN (TO YOUR RELIEF). 

PRINT "BY MOON YOU ARE AT THE ENTRANCE OF THE TOWN YOU SAW. " 

PRINT "YOU GEE & SIGNFQST IT READS ’FOSTOGON’.NOT FPARTOMINA. " 

PRINT "Yeu ENTER THE TOWN. IT THRIVES WITH SMALL BUSINESSES. YOU SEE 
MARY MERCHANTS. | . 

PRINT "YOU GRE HUNGGRY WILL YOU STOF AND EAT (8S) OR GO ON jG). 
INFUT 2 

LE Zk = "S" THEN GOTO 350 

TF Zk = "9" THEN GOTO S70 

GOTO Sa0 

ERINT “YOU DECIDE TO STOF AND HAVE SOMETHING TO EAT 4S YOU ARE VERY 
HUNGRY." 

ER INT “YOU SEQT YOURSELF TO & SINGLE TABLE.THE WAITER APFROACHES YO 
i) AND ASKS YOU WHAT YOU FANCY." 

PRINT “YOU ASK YOUR FAVOURITES BUT HE HAS NONE OF THEM. ' 

PRINT "THE ONLY THING YOU LIKE OUT OF HIS MENU IS THE FPLOOSTOER FUNG 
- 

PRINT "A LITTLE WHILE LATER THE WAITER RETURNS WITH SOMETHING WHICH 
LOOKS LIFE SPAGHETTI WITH SLOPPY RICE." 

PRINT “YOU EAT IT UF ALL THE SAME.WASHING DOWN YOUR MEAL WITH A DRI 
NEOOOF GLOOSE BROWN JUICE." 

EST) “GETTER YOUR KMEGL YOU FAY THE WAITER AND LEAVE. " 

a "YOUU WALE DOWN THE STREET AND SUDDENLY A CRY FOR HELE 
ES GUTLUNO NE ELSE SEEMS 


Fesee bee! 


SChEECH 
TO NOTICE. " 


sei "SUT YOu DO! tre 

PRINT & PRINT "FRESS RETURN TO CONTINUE. " 

INPUT ‘3b 

Pt I is Oe ie DASH DOWN & SIDE ALLEY ANO TRY AND FIND THE FEROSOUM WHO I 


iO) a 0 et oot 
LUMis Ft). 
PRIMYT URTNALLY YOU COME TC @ DEAD END. THERE YOU SEE A GLY bet MMe 


RUNNING TOWARDS THE “HELP OF WHOEVER THAT VOTCE He 


e To. 


APPLE PROGRAMS 


470 


480 


485 
BPO 
SOO 
wid 


wat) 


ral © 


540 
So 
S40 
365 
a7 
380 
385 
S9Q 


500 


610 


620 


S20 


640 


650 
656 
660 


670 


680 


690 


7OO 


710 
720 
FSO 
740 
7OO 


760 
770 
780 
79O 
B00 
aio 


BLO 


344 


SiO 


Bot) 
Wyo 


EHO 


Pt) 


(ann ee Srey 
i a A] 
PLO 
20 
P50 
te Sirs 
ie ad 
P50) 


940 


N WHO IS CONSTENTLY YELLING FOR WHICH REASON YOU CAN NOT SEE. 

FRINT “YOU APPROACH THE WOMAN AS TO SEE WHAT THE MATTER IS.SHE YELL 
S$ ONCE MORE AND FOINTS TO A HALF-OFEN DOOR." 

PRINT “YOU ARE ENOWN FOR YOUR DASH BRAVERY SO YOU LEAF INTO THE DOG 
R.ONCE INSIDE YOU SEE A CROSSBOW AIMED FOR YOUR HEAD." 

PRINT "Iv FIRES. YOU ARE DEAD! !!t" 

END 

PRINT "YOU ARE CURIOUS ABOUT THIS OLD WOMAN. YOU FOLLOW HER." . 
PRINT "YOU FOLLOW HER FOR WHAT SEEMS TO BE HOURS. YOU EVENTUALLY CAT 
CH UF TO HER AND GRAB HER BY THE ARM. " 

PRINT "SHE SHRIERS AND PULLS OUT (THIS TIME) A CANE ENIFE." 

PRINT “SHE STARS YOU FIRST IN THE STOMACH, THEN IN THE ARM, THEN IN T 
HE LEG. YOU YELP IN PAIN!!!" 

PRINT "THE OLD WOMAN CACKLES AND MOVES OFF." 

FRINT "YOU GIVE UP.YOU UNSHEATH YOUR SWORD AND FILL YOURSELF." 
FRINT "THIS LIFE HAS ENDED!!!" 

END 

PRINT "YOU DECIDE NOT TO STOF AND WOULD RATHER GO ON." 

FRINT =: FRINT "PRESS RETURN TO CONTINUE. " 

INPUT S# 

PRINT “AFTER A BIT OF WINDOW-SHOFFING YOU LEAVE AND CONTINUE ON YOU 
R QUEST." ‘ 

FRINT “FOUR DAYS FASS WITHOUT ANY EXCITEMENT AND FINALLY YOU SEE AN 
OTHER TOWN. " 

FRINT "YOU SEE A SIGNFOST AND TO YOUR DELIGHT IT READS ‘FARTOMINA’. 


FRINT “EVEM FROM A DISTANCE YOU SEE WHY THE FPEASANTS CALLED ON YOU. 
FRINT “THERE ARE GIANT WALLS SURROUNDING THE TOWN AND THEY ARE VERY 
UNCLEAN. " 

PRINT “THE TOWN HAS GUARDS SURROUNDING IT.NOW YOU REALISE IT WILL B 
E DIFFICULT TO ENTER." 

PRINT =: FRINT "PRESS RETURN TO CONTINUE. " 

INFUT SF 

PRINT "YOU WILL ENTER THE TOWN AT NIGHT BECAUSE DOING IT AT DAY WOU 
LD BE FLAIN MURDER. " 

PRINT "YOU GET YOUR GEAR ORGANISED AND START OUT TOWARD THE ENTRANC 
E GATES." 

PRINT "YOU ARE EXPECTING GUARDS TO BE GUARDING FARTOMINA 50 YOU HAV 
E BROUGHT YOUR SWORD,DAGGER AND SHIELD." 

FRINT "YOU ARRIVE AT THE GATES. THERE ARE TWO MASSIVE WOODEN DOORS. " 


PRINT "WILL YOU OFEN THE GATE ON THE RIGHT (R) OF THE GATE ON THE L 
EFT (Lo." 

INFUT HF 

IF HS "KR" THEN GOTO 960 

IF H# = "LL" THEN GOTO 750 

PRINT =: GOTO 700 

FRINT “YOU OFEN THE LEFT GATE.TO YOUR SURPRISE THE RIGHT AND LEFT D 
OORS ARE SEPERATED BY A MASSIVE STONE WALL SO YOU CAN’T SEE WHATS (ON 
THE OTHER SIDE LOOKS LIKE." 

FRINT “ON THE WALL YOU SEE A VINE REACHING UP AND OVER THE WALL." 
FRINT "WILL YOU CLIMB THE WALL (C) OR EXAMINE THE COURTYARD (E)" 
INFUT Y? 

IF ¥# = "C" THEN GOTO 820 

IF Y# = "E" THEN GOTO S0000 

mOTO ?7O 

FRINT “YOU DECIDE TO CLIMB THE VINE TO SEZ WHAT’S ON THE OTHER SIDE 
"RINT 'CROU GRAB THE VINE BUT IT BREAKS!" 
SRINT "YOU GARE DETERMINED TO SEE WHAT THE OTHER SIDE LOORS LIKE." 
“RINT 2 FRONT "PRESS RETURN TO CONTINUE" 

INFUT ES 
PRINT "YOU EXAMINE PRE WALL AND SOGN FIND ANOTHER VINE. YOU START TO 
CLM ThE WINE." 
PRIA CFP TaRES A WHELE BUT YOU SQON GET TO THE TOF." 
Pe INT “ON THE OTHER oiDe YOU SEE A GREAT FIGHT. " 
PRINT "THE FUGHT [TS BETWEEN SMARTLY DRESSED SWORDSMEN AND GOEL INS. " 


i 
{ 
1 
i 
I 


PRINT "YOU WATCH THE FIGHT FOR & WHILE GND CONSIDER TO FIND QUT FRO 
MoUNE OF THE GROUP LEADERS" 

PRINT "WHAT IS GOING ON." 

PRINT "YOU ARE ABOUT TO 83k YOURSELF WILL YOU OR NOT" 
PRINT "WHEN SLIDODENLY THE VINE (WHICH YOU H&VE LOOSENED YOUR GRIF ON) 
BREAKS 16" 

PRINT “YOU FALL GND HiT THE GROUND WITH SUCH IMPACT YOU BREAK YOUR 
NECK." 

PRINT "YOU ARE DEADE Ei" 

END 


MD 
PRINT YOU DECIDE TO OQFEN THE RIGHT DOOR. " 


a a eee aed 
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APPLE PROGRAMS 


970 PRINT "WHEN YOU ENTER THE FIRST THING YOU SEE [S A MASSIVE FIGHT! !" 


980 PRINT "THE FIGHT IS BETWEEN EVIL-LOOKING GOBLINS AND LAVIGHLY DRESS 
ED SWORDSMEN. " 

990 PRINT "WILL YOU JOIN IN THE FIGHT(J) OR QUIETLY SNEAK FAST T 
HE FIGHT (S) " 

1000 INPUT J# 

1100 IF J# = "J" THEN GOTO 5000 

1200 IF J# = "S" THEN GOTO 10000 

SOOO PRINT "YOU WANT TO JOIN IN." 

S005 FRINT "YOU CHARGE A GOBLIN WITH YOUR TWO-HANDED SWORD. YO 
U CHOF HIS HEAD CLEAN OFF!" 

S010 PRINT "BLOOD SFLATS ON YOUR ARMOR. " 

SOiS PRINT “YOU RUSH ‘ROUND CHOPFING GOBLINS TQ FIECES AND FINALLY 
YOU AND THE SWORDSMEN DESTROY ALL THE GOBLINS." 

SoO20 FRINT "TO YOUR SURFRISE ONE OF THE SWORDSMEN IS @ SFY 
AND HE LAUNCHES 4 CROSSBOW BOLT TOWARDS YOUR HEAD." 

Sso25 PRINT."I T HITS! ! i" 

SOO FRINT "YOU ARE DEAD. ADVENTURE OVER." 

5055 END 

10000 FRINT "YOU THINE YOU WILL AVOID THE FIGHT AND SNEAK FAST." 

10010 FRINT "YQU SNEAK IN THE SHADOWS AND TRY TO FASS THE FIGHT." 

10020 PRINT "BUT YOUR LUCK IS NOT AT IT’S BEST AND" 

10030 PRINT "ONE OF THE GOBLINS SPOTS You. “ 

{0040 PRINT "HE COMES RUNNING AT YOU WITH A TWO-HANDED BATTLE 
AXE!" 

10050 PRINT : PRINT "WILL YOU YELL AND FULL OUT YOUR SWORD FOR 
A FIGHT(F) OR RUN AT THE NEAREST EXIT{R)" 

10060 INEUT GE 

10070 IF Gt = "R" THEN GOTO 10100 

10080 I[F Gf = "F" THEN GOTO 2o000 

19090 GOTO 10050 

10100 PRINT “YOU COWARDLY MAKE FOR AN EXIT." 

10110 PRINT "YOU RUN LIKE THE WIND BUT AS YOU ARE SFEEDING FOR THE E 
XIT ONE OF THE GOBLINS ARROWS" 

10115 PRINT “HITS YOU IN THE BACK OF THE NECK." 

10120 PRINT "IT IS POISONED!" 

10130 FRINT 

10140 PRINT "YOU FALL TO THE GROUND DEAD! !" 

10150 FRINT 

10140 FRINT "YOU WILL NOT BE WASTED BECAUSE THE GOBLINS EAT YOU AS 
SOON AS THEY WIN THE BATTLE." 

10170 END 

20000 FRINT “YOU ARE NO COWARD AND YOU ARE GOING TO FIGHT THIS RUDE AN 
D ANNOYING GOGLIN. ™ 

26010 PRINT "YOU ATTACK AND TAKE & SLICE OUT OF THE GOBLINS STUBBY SHO 
ULDER. " 

20020 PRINT “HE YELLS IN AGONY AND FALLS TO THE GROUND,DEAD." 

20030 PRINT “YOU ARE GLAD THE ATTACKER HAS FALLEN. " 

2oud0O PRINT “YOU FROCIDE TO & SMALL STORE ROOM WHICH IMSiDE YOU F 
IND & BOX WITH 4 SMALLER BOX INSIDE IT." . 

20080 PRINT “YOU OPEN THE BOX AND INSIDE you FIND A MAGIC-BLAST WAND 
AND A WICK.” 

20060 PRINT "ALSO WITH THIS YOU FIND A SMALL NOTE. " 

20070 FRINT “IT BEADS, ‘WELCOME TRASHER I HOPE YOU HAD & SAFE JOURNEY. TH 
ESE ARE THE THINGS WHICH YOU WILL USE TO BLOW UP ANTRAX‘’S CASTLE.‘ " 

20075 PRINT ¢ PRINT “PRESS RETURN TO CONTINUE" 

20076 INPUT Vs 

20080 PRINT "YOU May OR MAY NOT ENOW THAT THIS IS ANTRAX‘’S CASTLE. you 
MUST VENTURE TO THE EASTERN WALL OF THE CASTLE,FLACE DOWN THE WAND, 
LIGHT THE FUSE," 

20090 PRINT “AND GET GUT OF THERE!!!" 

20100 FRINT "YOU FUT THESE THINGS IN YOUR FOCKET AND HEAD OFF THROU 
GH THE COURTYARD." 

20110 PRINT “YOU EVENTUALLY FIND THE CASTLE AND FRESS ON TOWARDS I 


ad ib 
Ion 


20120 PRINT “YOU THROW YOUR ROPE UP AND OVER THE HIGH WALI WHICH SU 
RROUNDS THE CASTLE. * 

20150 PRINT “YOU CLIMB UF YOUR ROFE @AND ON TO THE WALL." 

S01,40 PRINT "YOU HAVE THE CASTLE IN YOUR SIGHT AND JUMP OFF THE WALL. 

201560 FRINT “YOU ARRIVE AT THE BOTTOM OF THE CASTLE AND ONCE AG 
GIN THROW UF YOUR ROFE. " 

20140 FRINT “IT LANDS SUCCESSFULLY ON THE EDGE OF THE CASTLE WINDOW. 


20170 FRINT “IT 7S A LONG AND TIRESOME CLIME BUT YOU EVENTUALLY Mak 
Err 

= PRINT “PRESS BETURN TO CONTINUE" 

SO178 INPUT vor 

20180 PRINT “YOU CAN SEE INSIDE THE DIMLY—-LIT ROOM." 
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APPLE PROGRAMS 


20190 PRINT "YOU SEE A LARGE DARE MAN READING GUIETLY AT A DESK: 

20200 PRINT "YOU ARE IN SUCH & GOOD VEIWING SFOT YOU CAN EVEN READ 
THE NAME OF THE BOOK HE IS READING." 

20210 PRINT "IT IS CALLED 101 WAYS TQ FRY A DWARF." . 

20220 PRINT “YOU LEAF IN AND FLANT YOUR SWORD THROUGH HIM AND TH 
EN SLIP QUIETLY AWeY INTO THE SHADOWS. " 

20230 FRINT “YOU CLINE DOWN THE ROFE,OVER THE WALL AND INTO THE COURT 
YARD. " 

20240 PRINT “YOU SLIF 4W&Y FROM THE FIGHT OF THE GOBLINS AND SWORDSMEN 
AND OFF INTO THE DARENESS. ” 

20250 PRINT "ONCE OUTSIDE YOU REALISE THAT YOU HAVE FORGOTTEN SOM 
ETHING. " 

20255 PRINT “PRESS RETURN TO CONTINUE" 

20258 INFUT D# 

20260 PRINT "TO BLOW-UP THE CASTLE. YOU ANNOYED WITH YOUR FORGETFU 
LNESS RUN BACK TOWARDS THE CASTLE AND COURTYARD. " 

20270 PRINT "YOU SLIF ONCE MORE FAST THE FIGHT AND TOWARDS THE CA 
STLE." 

20280 PRINT “YOU THROW YOUR ROPE OVER THE HIGH WALL SURROUNDING T 
HE CASTLE AND CLIME OVER." : 

20290 PRINT "ONCE ON THE OTHER SIDE OF THE WALL YOU PROCEED TOWARD 
S$ THE CASTLE." 

20500 PRINT “YOU CAREFULLY REMOVE THE BLAST-WAND AND THE WICK AND $ 
TART TO ROLL GUT THE WICK. " 

20310 PRINT “ONCE FAR ENOUGH AWAY YOU LIGHT THE WICK AND RUN!" 

20520 PRINT "YOU QUICKLY HALF-JUMP AND HALF-CL IME OVER THE WALL AND 
SPEED OUT OF THE GATES." 

20325 PRINT "PRESS RETURN TO CONTINUE” 

20328 INFUT S$ 

20330 PRINT “AS YOU ARE GALLOPING OFF IN THE DIRECTION OF HOME YOU HEAR 
AN ENORMOUS EXFLOSION! " 

20340 FRINT "YOU TURN AROUND AND SEE THE CASTLE AND BOTH COURTYARD 
3 DESTROYED." 

20250 FRINT “WELL DONE TR&SHER YOU HAVE COMPLETED YOUR MISSION. " 

20360 FRINT : FRINT “WHEN YOU RETURN TO YOUR VILLAGE THERE ARE 
MANY FEASANTS EATING AND DRINKING. " 

20370 FRINT "THE MAYOR OF FARTOMINA AFFPROSCHES YOU AND SAYS’‘FRIENDS M 
AY T HAVE YOUR ATTENTION?" 

20286 PRINT "EVERYONE FALLS SILENT." 

20390 FRINT "WE ARE ALL HERE TO REJOICE ONTO THIS FINE WARRIOR, ADVEN 
TURER AND MAN." 

20400 PRINT : FRINT "PRESS RETURN TO CONTINUE" 

20405 INFUT D# 

20410 FRINT "YOU, TRASHER HOVE SAVED PARTOMINGa MY TOWN FROM ALMOST I 
MEDIATE DESTRUCTION. 

20420 FRINT "YOU MAY OR MGY NOT ENOW, IT DOESN’ T MATTER NOW BUT ANT 
RAX WAS FLANNING ON RALDING" 

204350 PRINT “PARTOMINA AND THERE WOULD BE A MASS SLAUGHTER OF MY FEOFPLE 


20440 PRINT "I WAS INFORMED ABOUT THIS BY ONE OF MY PERSONAL SPIES. 
HE CAME TO ME TELLING ME ALL THAT I HAVE TOLD you." 

20450 PRINT "FOR THE DANGER,FIGHTING SND MANY MORE TREACHEROUS THINGS 
YOU HAVE FACED TRASHER" 

20460 PRINT "I 6M AWARDING YOU & BADGE OF HONOUR AND 400,000 GOLD FP 
IECES. " . 

20470 PRINT "YOU GAY A SMALL SFEECH AND YOU ARE AWARDED THE MONEY AND 
MEDAL AND THEN YOU RETURN TO YQUR QUIET LITTLE HUT" 

20480 PRINT "TO BE AN HONOURED CITIZEN FOR EVER." 

20490 PRINT "THE EN D" 

20500 END 

FOO00 PRINT “YOU THINK YOU WILL TAKE & CLOSER LOK AT THE COURTY 
ARD. " 

So010 PRINT "YOU CAN SEE & SMALL FOUNTAIN IN THE MIDDLE OF THE YARD 
AND SOME WOVEN TAFASTRIES ON THE LEFT WALL." 

SQ020 PRINT "DO YOU WANT TO LOOK AT THE TAFASTRIES(A) OR I 
NSFPECT THE SMALL. FOUNTAIN (CR). " 

SOORO INEUIT che 

So040 IF @¢ = "A" THEN GOTO Soo6o 

So050 IF Q£ = "B" THEN GOTO So1o00 

50060 FPRINT “THE TAPGSTRIES ARE WOVEN OF FINE CANE AND FICTURE &@ GOLD D 
RAGON CHASING SOME DWARVES. " 

HOO70 PRINT “ANOTHER PICTURES & FAIR MAIDEN STROKING & SMALL B&B 
IRD." 

SO080 PRINT "THE TAPASTRIES ARE GF NO VALUE. * 

SO081 PRINT "YOU MAY EITHER LOOK AT THE FOUNTAIN (8) OR CLIMB THE VINE 
(7s 

S082 INFUT X# 

So0ds IF xf = "EB" THEN GOTO So1d0 


wOOS4 [FF Axe = UC THEN imUOTo S20 
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APPLE PROGRAMS 


20085 GOTO Soos8l 

SO100 PRINT "YOU DECIDE TO LOOK AT THE SMALL FOUNTAIN" 

20110 PRINT "PRESS RETURN TO CONTINUE" 

YOi2Z0O INPUT OF 

30130 PRINT "THE FOUNTAIN BUBBLES UP LIGHT COQL-LOOKING FLOWING WATER A 
ND GENTLY TRICKLES DOWN A FLOWER-SHAPED STEM-LOQOKING FART THAT THE W 
ATER COMES OUT OF." 

20140 PRINT "YOU CAN EITHER HAVE A DRINK FROM THE FOUNTAIN(D) OR EXAMIN 
E UNDERNEATH THE FOUNTAIN(U) " 

JOLSO INPUT Wes 

[0160 IF Wt = "DB" THEN GOTO 30190 

SO170 IF Wt = "U" THEN GOTO S0OS530 

20180 GOTO 20140 

50190 PRINT "YOU THINE YOU WILL HAVE A DRINE FROM THE FOUNTAIN" 

2O200 FRINT "PRESS RETURN TO CONTINUE" 

VOL21O INFUT OF 

SO22060 FRINT “YOU CUP YOUR HANDS AND DIG DEEP INTO THE COOL,GLITTERING W 
ATER AND FILL YOUR HANDS. THEN YOU RETRACT YOUR HANDS FROM THE WATER 
AND FOUR IT DOWN YOUR THIRST-QUENCHED THROAT." 


SO2TO PRINT "THE WATER TASTES BEAUTIFUL AND IT SFARKLES IN YOUR STOMACH 


WITH ALL THE FRESHNESS THAT YOU HAVE EVER TASTED. " 

50240 PRINT "YOU HAVE MANY HAND-CUF-FULLS OF WATER UNTIL YOU START TO F 
BEL DEZA. . 

SORSO FRINT "yOu SLUMP TO THE GROUND NOT FNOW TD Mis WHAT HA WOM OVinb ¥ 
~YOU ARE BECOMING INCREASINGLY SLEEPY AND EVENTUALLY DOZE OFF TO SLE 
EP a 

30260 PRINT "WHEN YOU WARE YOU FIND THAT YOU FACE ,SWORD,SHEILO AND EVEN 
ARMOR IS ALL MISSING. YOU LOOF AROUND BUT NO ONE IS TO BEEN SEEN." 

wOR7O FRINT “YOU EVENTUALLY. ANNOYED WITH THESE GOINGS-ON WALK BACK OVER 

TO THE FOUNTAIN ait STeRE INTO fT." 

SO2BO PRINT “INSIDE THE WATER YOU SEE SLL YOUR MISSING EQUIFMENT SLOWIN 
3 FiLUATING AWAY. YOU USELESSLY GRASF INTO THE WATER FOR YOUR FOSSESSI 
ONS BUT THEY ARE ONLY IN WHAT YOU SEE,THEY ARE LONG GONE!" 

SOLO FRINT "TO THINE YOU ARE IN DEEP TROUBLE, BECAUSE YOU CAN HERE SOME 
MOVERENT APPROACHING AROUND THE CORNER. " 

SO 200 PRINT "PRESS RETURN TO CONTINUE" 

OSLO INPUT xs 

S320 FRINT "YOU MUST ACT QUICELY!" 

2OS30 PRINT "WILL YOU DIVE BEHIND A BUSH (DIOR STAND AND FACE WHOEVER OR 
WHATEVER IS MAKING THAT NOISE <(S)" 

SO340 INFUT YS 

SOS50O TF ¥$ = "S" THEN GOTO SOznSaG 

2OS00 TF YE = "D" THEN GOTO So44ao 

wO270O GOTO SOS3O 

SO38O FRINT "YOU ARE MORE [INQUISITIVE THAN FRIGHTENED SO YOU STAND YOUR 
GROUND." 

0390 PRINT "YOU STAND YOUR GROUND ONLY TO SEE 3% GOBLIN GUARDS WITH SPE 
ARS!" 

SO4O0O PRINT "THEY IMMEDIATELY SFOT YOU AND ONE HURLS A SFEAR AT YOU,IT 
Misses, THUDDING INTO THE GROUND BESIDE YOU. " 

SO470 PRINT "YOU TRY AND FIND SOMEWHERE TO HIDE BUT THEY HAVE CORNERED 
YOU OFF FROM THE EXIT AND THE BUSHES. " 

20420 PRINT "YOU CAN DO NOTHING BUT WAIT FOR THEIR NEXT MOVE, " 


: 43 
YE 


2O4 50 FRINT "ANOTHER i0BLIN HURLS & SFEAR AND [T THUDS INTO YOUR CHEST. | 


THE GOBLINS GLEEFULLY WATCH 43 YOU SLUMP TO THE GROUND IN FAIN. THO 

UGH DON’T WORRY, THE GOBINS ARE QUITE HUNGRY SND YOU WILL NOT BE WAST 
ED." 

HOd4dO RINT "YOU ARE DEAD. ADVENTURE OVER. " 

so4so END 

HO460 FRINT "YOU DON’T TAKE ANY CHANCES WITH THIS NOISE AND YOU HIDE BE 
HIND SOME BUSHES." 

HOd7O PRINT "ONLY TO SEE & SMALL WHITE RABBIT HOF FROM AMONGST SOME BUS 
HES." 

50480 PRINT "THE RABBIT RAISES ITS NOSE INTO THE AIR,LOOKS IN YOUR DIRE 
CTION AND THEN HOF'S OUT OF THE COURTYARD GROUND THE GATE." 

5O490 FRINT "YOU THINKING WHAT & FOOL YOU GRE GET OUT FROM THE BUSHES 4 
ND FOLLOW THE RABBIT IN HOFE OF FINDING YOUR FOSSESSIONS. ” 

SOSOO PRINT “YOU FOLLOW THE RABBIT OUTSIDE NEAR THUNDAR WHERE THR RABBI 
TS TRANSFORMES INTO A FIXIE AND FLIES OFF." 

SOS10 PRINT “G@LL YOUR GEAR SUDDENLY AFFEARS GROUT YOUR PERSON AND you w 
ALK INTO THE DOOR ON THE RIGHT,WHILST CURSING FIXIES." : 

50520 GOTO 970 | 

SOSSO PRINT "YOU DECIDE TO LOOK UNDER THE FOUNTAIN. ” 

50540 PRINT "PRESS RETURN TO CONTINUE” 

SOSSO INPUT FE 

SO8SO PRINT "YOU GO DOWN ON YOUR ENEES AND CAREFULLY EXAMINE UNDER THE 
FOUNTAIN. YOU FIND A LOOSE FIECE OF MOULD WHICH YOU PULL OUT AND BRE 
AK OFEN. " 

SOS70 PRINT “INSIDE THIS FIECE OF MOULD YOU FIND & SMALL BLACK BOX." 
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TOSB80 PRINT "WILL YOU EITHER OFEN THE BOX(0) ,SMASH THE BOX WITH YOUR SW 
ORD(S)OR HAVE A DRINK FROM THE FOUNTAIN(D) " 

2OS70 INFUT X# 

T0600 IF X$ = "D" THEN GOTO S0190 

30610 IF X# = "S" THEN GOTO 30640 

50620 IF X$ = "0" THEN GOTO SO7S0 

20630 GOTO 305380 

530640 PRINT “YOU WILL TRY TO SMASH THE BOX OPEN WITH YOUR SWORD." 

39650 PRINT : PRINT "PRESS RETURN TO. CONTINUE” 

50660 PRINT “YOU UNSHEATH YOUR SWORD,ITS BLADE GLIMMERING BY THE MOON I 
TS HILT GLOWING WITH RADIANCE OF WELL DONE DEEDS,SHARP ENOUGH TO CUT 

ROCK CLEANLY IN TWO." 

50670 PRINT “YOU RAISE YOUR SWORD ABOVE YOUR HEAD WITH TWO HANDS PAUSE 
FOR A MOMENT THEN BRING DOWN WITH ALL YOUR STRENGTH ONTO THE SMALL B 
(VX. " 

20680 FRINT "“UFON IMPACT WITH YOUR SWORD AFON THE BOX THE BOX EXPLODES 
INTO THOUSANDS OF DIFFERENT COLOURED LIGHTS EACH WITH ITS OWN BRILLI 
ANCE AND THROWS YOU BACK S FEET." 

20690 PRINT "FROM WITHIN THE BOX A LARGE SHADOW ARISES, THE LIGHTS GO OU 
T AND THE SHADOW RISES HIGH INTO THE ATR THEN SWOOFS DOWN APON YOU & 
NO GRASFS YOU IN [FS POWERFUL PaALoNs, " 

30700 FPRINT "IT TAKES YOU UF HIGHER AND HIGHER UNTIL YOU ARE ALMOST BRE 
ATHLESS. " 

50710 FRINT "THEN THE SHADOW STOFS SUDDENLY THEN DECENDS STRAIGHT TOWAR 
DS THE EARTH. YOU STRUGGLE AS TO REGAIN FOWER OVER YOU BODY BUT YOU 4 
RE GRASFED VERY TIGHTLY." 

50720 PRINT "THE SHADOW SINKS STRAIGHT THROUGH THE EARTH BUT YOUCAFON I 
MPACT) SFLAT EVERYWHERE NEVER TO BEEN FOUND AGAIN." 

WO7SI0 FRINT "YOU ARE DEAD. ADVENTURE OVER. " 

20740 END 

2O750 FRINT "YOU DECIDE TO OFEN THE SMALL BOX." 

20750 PRINT "PRESS RETURN TO CONTINUE" 

wO77O INFUT AS ) 

5073860 PRINT “YOU CAREFULLY LIFT THE BOX LID AND INSIDE YOU FIND A SMALL 

JEWEL-DOTTED RING." 

SO79O0O PRINT "WILL YOU PLACE THE RING IN YOUR BACKPACK AND GO AROUND THR 
QUGH THE RIGHT DOOR (G) OR WILL YOU FUT THE RING ON AND SEE WHAT HAF 
PENS (F)" 

90800 INFUT At 

SO0810 IF A# = "G" THEN GOTO So0840 

20820 [IF AS = "F" THEN GOTO 30330 

20820 GOTO BoO790 

TORB4O0 FRINT "YOU FUT THE RING IN YOUR BACKFACE THEN “3: GOTO 960 

20850 FRINT "YOU CAREFULLY SLIDE THE RING ON YOUR INDEX FINGER AND AFTE 
R A FEW SECONDS THE RINGS GROWS VERY TIGHT AROUNG YOU FINGER AND YOU 

CAN'T GET IT OFFFE" 

50860 PRINT “YOU TRY DESFERATELY TO GET THE RING OFF BUT IT IS STUCK FA 
5ST TO YOUR FINGER. YOU SIT DOWN ON A NEARBY LOG AND TRY TO THINK OF 
WHAT TO DO NEXT,WHEN THE RING SUDDENLY LETS OUT A BRILLIANT FLASH OF 

WHITE LIGHT." 

20861 PRINT "YOU FALL OFF THE LOG IN AMAZEMENT." 

203870 PRINT "THE RING FULLS AT YOUR FINGER AS IF TO LEAD YOU SOMEWHERE. 
YOU FOLLOW, " 

20880 FRINT "THE RING ENDS UF LEADING YOU TO THE TAFPASTRIES WHERE IT GI 
VES OUT ANOTHER RADIANT FLASH OF BRILLIANT WHIT LIGHT AND IT SHOOTS 
A LIGHTNING BOLT ONTO THE TAFASTRIE WITH THE DRAGON AND THE DWARVES 
ON IT." 

20390 FRINT “YOU EXPECT THAT THE TAFASTRIE WOULD CATCH ALIGHT BUT THE F 
IGURES DISAPPEAR AND REAFEER RIGHT BEHIND YOU AND THE DRAGON CHASES 
THE DWARVES WHILE THE MAIDEN STROKES A SMALL BIRD(AS IN THE TAFASTRI 
BS) a" 

20900 PRINT "YOU SHOCKED WITH THE EVENTS RUN DUT OF THE COURTYARD WHERE 

"ss GOTO %6o 


35 


APPLE PROGRAMS 


| : 1 SFe1@.,F9¢18),OU86182,ANC18) 
sean s0 pie Begetar teste ear aan 


RUNNER a ha 


SO VTAR GP: HTAB i: PRINT “f>-"3 
Okay space cadets, you've saved 60 FOR X = 3 TO 18 
the Earth before, and here’s your 70 IF SPCX) = 0 THEN NEXT X: GOTO 120 
chance to save it again! BO FOCX) = FOCX) ~ SFCX) # S 
Unfortunately the Cray super- 90 IF POCX) < 4 THEN 1080 


vs Xt HTAB ¢ INT ¢POCX))): PRINT QU$(X); 
computer that normally handles aes haere ne , 


the Earth’s defences has broken iz.) REM 
down. Luckily you had your 
Apple on hand, so you connected 


it to the defence systems just be- 130 A = PEEK ¢ — 16384) 
fore the attack. Due to the fact ee ae pee ee 
’ wl SL Moe =, = a 

that your Apple doesn’t have the 160 IF A = 145 THEN TEXT : HOME : GOTO 1420 

processing capabilities of a Cray, 170 IF A = 155 THEN 980 

the defence systems need your 180 IF A = i141 THEN SH = SH + 1: GOTO 270 

help! 190 IF A = 193 THEN GF = GP - i: IF GP « 3 THEN GP = 3 
Your screen will show the 200 IF A = 218 THEN GP = GP + 1: IF GP » 18 THEN GP = 18 
Z10 A= A - 176 

alien caliec vant )es they a 220 IF A = - 1 THEN NU = O: YTAB 23: HTAB 20: PRINT " "5 

tack, but the computer can’t work =30 IF A: 9 OF A <= 0 OF NU > = 999 THEN 420 

out the code that is required to “40 NU = NU £10 + A 

break the aliens’ force field 250 GOTO 420 

thereby destroying them. Instead 260 KEM 


an equation will be shown, and 
you will have to use quick mental 


i i a7 GP: HTAR 1 
arithmetic to work out the code, Gy, LAs Se 


280 IF NU = © THEN SOO 


before the runner reaches the left =30 IF NU = ANCGP? THEN GOTO 320 
side of the screen. You have 300 FRINT “te"sLi$; 
three lives with which tc save our 319 GOTO 420 
world — GOOD LUCK! S205 PRINT Si ous CEPTS (CTS, (POtGeE ) 24 Tere ee ee ae 
The keys used are: sso : = haan ( - 16336):A = PEEK ¢ — 16336):A = PEEK ¢ - 16336):A = PEEK 
A — to meve laser up, aa SP Ce) = © 
Z — move laser down, 350 NU = 9 
Return — fire laser, S60 VTAB 23: HTAB 20: FRINT " "a 
a: 370 HI = HI + 1 
ai fae pte ee = a. C a IF Hi = INT ¢H1) THEN S = S + .1 
Esc — pause and 400 FOCGP) = 30:ANCGP) = 0 
Ctrl-O — quit 410 FEM 
Once run, a scrolling front 
page will be presented, but when 
you press a key, the screen will 420 VTAB 20: HTAB 15: PRINT HI; + HTAB 25: PRINT LI; 
clear and you will be confronted ee te ee 
by a menu. 450 REM Oo 
‘TYPE’ refers to the type of 
questions you will encounter. In- 460 IF NI => = Nt THEN 4o 
putting a ‘l’ and pressing <RE- 470 ON LE GOSUR S30,590,650,710, 770 
TURN?> will roll the type of ques- 480 F = INT ¢ END ¢1) #€ 15 + 3) 
tions between addition, subtrac- a ae eee ae TOES 
Gon, muipiication division and S10 ANCR) = RS:GQUS(R) = “<" + STRS (RI) + SIS + STRS CRED + ">" 
a mixture of the above. ‘SPEED S70 NI = NI + Lt: GOTO 40 
refers to the speed at which the S30 Fl = INT ¢ BND ¢1) € 13% SK) + 1 
runners move. The speeds al- S40 FS = INT ¢ BND ¢€1) # 13 # Sk) + 1 
lowed are between | and 10, SSO FE = Bi + R2 
where 10 is the fastest speed. es hea, 24 ahs a. 
‘SKILL’ refers to the skill level ee ee wa a igh ene 
(how hard the questions are) and S90 Rl = INT ¢ BND (1) * SK # 40) + 1 
is also a number between | and 600 RZ = INT ¢ RND (1) * SE * 10) + 1 
10, where 10 is the hardest. 610 FG = Fl - RE 
‘RUNNERS ' refers to the maxi- 620 SI¢ = "-" 
mum amount of runners on- ee ee a (SEO 100 THEN S30 
screen at one time. The maxi- 650 Ril = INT ¢ BND ¢1) * SK # 2B) + 1 
mum amount is 12, yet the game 660 FZ = INT ¢ FND (1) % SK # DD) + 1 
becomes way too slow. Pressing 670 PO = Fl & RS 
‘5’ will then start the game. 680 SI¢ = "#" 
This program can even be 690 IF FBS = ¢2 # SK #& SK) THEN 650 
modified, without too much 700 RETURN a, eset 
trouble, to teach spelling in- OES ie. EN Ne, es 
, 720 FS = INT ¢ RFND ¢1) # SK #3) + 1 
stead. The questions could be in- 730 Pl = RD * RB 
correctly spelt words, while the 740) SIS = "/" 
code would have to be the cor- 750 IF Fil < (SK * SK) THEN 710 
rectly spelt word. Geography can 760 RETURN 
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also be taught; where capital 
cities are the Runners, and the 
code is the associate country. In 
both of these examples the ques- 
tion and answers could be stored 
as DATA statements. 

The program can be split up 
into separate parts: 


Line 40-110 — Update runner 
positions. 

130-250 — Check keyboards. 
270-400 — A shot is fired — hit 
or miss. 

420-440 — Score update. 
460-790 — Generate questions 
and answers. 

810-1060 — A subroutine to do 
while pausing the game. 
1080-1400 — A hit! — a runner 
made it all the way across the 
screen. 

1420-1530 — GAME OVER — up- 
date high score if required. 
1550-1770 — Generate a border 
around screen — and set the text 
window inside it. 

1790-2020 — Print scrolling front 
page. 

2030-2200 — Input the category. 
2220-2270 — Initialise variables. 
2280-2310 — Subroutine used in 
scrolling the front page. 


S. Bauer 
Upwey Vic. 


779 
780 
730 
800 


810 
820 
830 
840 
850 
860 
870 
880 
B30 
3900 
310 
3920 
330 
940 
350 
960 
970 


980 

330 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


1080 
1030 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
11350 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1:80 
12°90 

SOO 
1310 

S20 
1330 
1340 

350 
1560 
1370 
1380 
1390 
140600 
1410 


1420 
1430 
1440 
1450 
1460 
1470 
1480 
1430 


1500 
1510 
1520 
1530 
1540 


R4 = INT ¢€ RND ¢1> * 3) + 1 

ON F4 GOSUB 530,590,650,710 

RETURN 

FEM 

TEXT : HOME 

INVERSE : HTAB 14: PRINT "NUMBER RUNNER" 
VTAB 20: HTAB 9: FRINT “SCORE:";: HTAB 19: PRINT "LIVES:" 
VTAB 21: HTAB 3: FPRINT "SHOTS: "; 

VTAB 23: HTAB 13: PRINT “ANSWER: "3 
NORMAL 

POKE 34,2: FOKE 35, 18 
A = FRE (0) 
GF = 3S 

FOF X = 3 TO 18 
SFCX) = 0 
FOCX) = 3O 

NEXT X 
NI = 0 
NU = © 

SOTO 40 

REM 
PAS = "“PAUSING...PAUSING...PAUSING...PAUSING...PAUSING..." 


FOF X = 1 TO 10 


VTAB 12: HTAB 1 
PRINT MIDS (PAS, X,37) 
IF PEEK ¢ - 16384) > 128 THEN GOTO 4o 


A = FEEK ¢ - 165936) 


FOR Y = 1 TO 20: NEXT Y 
NEXT X 

BOTO 390 

FEM 


GF 
ROLOR= 1 

VLIN 12,27 AT 3 

FLOT 10,27 

VLIN 21,27 AT il 

FLOT 12,21: FLOT 13, 21 
VLIN 21,27 AT 14 

PLOT 15,27 

VLIN 12,27 AT 16 

PLOT 15,12 

VLIN 12,18 AT 14 

FLOT 13,18: FLOT 12,18 
VLIN 12,18 AT 11 

FLOT 10,12 

VLIN 12,27 AT 19 


FLOT 20, 27 
VLIN 12,27 AT 21 
PLOT 20,12 


VLIN 12,16 AT 24 
VLIN 12,16 AT SO 

VLIN 16,27 AT 26 

VLIN 16,27 AT 28 

HLIN 25,29 AT 12 

FLOT 25,16: PLOT 29,16 
PLOT 27,27 

FOR X = 1 TO 100 


A = FEEKF ¢ - 163536) 


NEXT X 


LI =LI- 1 


F 


BUT A HIGHER: 


IF LI = 0 THEN 1420 
PRINT : FRINT : PRINT : PRINT “PRESS A KEY TO START AGAIN" 


BET QS 
SOTO 810 
FEM 


PRINT “ GAME OVER" 

IF SH = 0 THEN FE = O: GOTO 1450 
E = INT CHI / SH # 100) 

FRINT “YOUR FPERITENTAGE: "3; FE 
PRINT “YOUF SCORE: ";HI 


FOF X = 1 TO Ss: FRINT CHES €733: NEXT X 
FOF X = 1 TO 1000: NEXT X 
IF HS = HI AND FE = HF THEN HF = FE: FRINT "YOU GOT THE SAME SCORE 


FERCENTAGE!" | 


IF HI = HS THEN HS = HI:HP = PE: PRINT “YOU GOT THE TOP SCORE" 
PRINT "PRESS A KEY" 

BET At 

HOTO 1550 

REM 
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1550 TEXT =: HOME 

1560 INVERSE 

1570 VTAB 1 

1580 FOF xX = 1 TO 40 

1590 HTAB X 

1600 PRINT "#"s; 

1610 NEXT X 

1620 FOR X = 2 TO 233 

1630 VTAB X: HTAB 40 

1640 PRINT “E"s 

1650 NEXT xX 

1660 VTAB =3 

1670 FOF X = 39 TO 1 STEF - 1 

1680 HTAB X 

1690 FRINT 'k"; 

1700 NEXT X 

1710 FOR X = 22 TO 2 STEF - 1 

1720 VTAB X: HTAB 1 

17350 PRINT "#"'s 

1740 NEXT X 

1750 PORE s4,2: PORE 35,21 PORE S2,2: PORE S3,s 

1760 NORMAL 

1770 FOF X = 1 TO 2O: FRINT : NEXT X 

1780 GOTO 1930 

17350 FRINT "# ¥* + € OE SK EE": GOSUB 2280 

1800 FRIINT '$:# * CF CRA CEE CE ; a i 3 #": HOSUB 2280 

1810 PRINT "* #€ ££ #€ ce i a a oe 2 €#¢":s GOSUB 2280 

1820 FRINT “# #k £ OF OE fF *# #": GOSUB 2280 

1830 PRINT "+ OEE oa CESSES ft Ut": GOSUB 2280 

1840 PRINT : GOSUB 2280: PRINT : GOSUB 2280 

1850 PRINT " ee OE OE *OEESE EAA": GOSUB 2280 

1860 FRINT " . a 2 2 EH ff Ok FE * ¢": GOSUB 2280 

1870 FRINT ' #4 OK OF K KR of RE 44:6": GOSUB 2280 

1880 FFINT " KE OF ca a re a a ae * ++ GOSUB 2280 

1890 FRFRINT " * # 4 * OEE # #":s GOSUB 2280 

1900 PRINT : GOSUB 2280: FRINT : GOSUB 2280 

1910 INVERSE : HTAB 13: FRINT "BY STEVE BAUER": NORMAL : GOSUB 2280 

13920 6©FRINT : GOSUB 2280 

1930 FRINT “HIGHEST SCORE :"HS" AT "“HFE'Z" 

1340 GOSUB 2280 

1950 FRINT : GOSUB 2280 

1360 PRINT "LAST SCORE : "HI" AT "PE"X" 

1370 GBOSUB 2280 

1980 FRINT : GOSUB 2280 

1990 FLASH : FRINT "PRESS ANY EFEY TO START": NORMAL 

2000 §O0SUB 2280 

2010 FRINT : GOSUB 2280 

2020 GOTO 17°30 

2030 HOME 

2040 INVERSE 

2050 VTAB S: FRINT “ENTER THE CATEGORY" 

2060 NASC1) = "ADDITION": NAS$C2Z) = "SUBTRACTION": NASCS) = "MULTIPLICATION" 
:NAS$¢C4) = "DIVISION": NAS$CS) = "ALL" 

2070 PRINT : FRINT 

2080 PRINT "i — TYPE: "3: NORMAL : FRINT NA®#CLE) 

2090 INVERSE : FRINT "2 ~— SPEED: "3: NORMAL : FRINT S #& 5S 

2100 INVERSE : PRINT "3S - SKILL:"3: NORMAL : FRINT SE 

2110 INVERSE : FRINT "4 — RUNNERS: "3: NORMAL : FRINT Nt 

S1lzO FRINT : FLASH : FRINT "S —- START GAME" 

21350 INVERSE : PRINT : FRINT : FRINT 

2140 INPUT "“INFUT NUMBEF TO CHANGE"; NN 

2150 NORMAL 

2160 IF NN = 1 THEN LE = LE + i: IF LE > S THEN LE 

2170 IF NN = 2 THEN INFUT "ENTER SFEED";SS:S = SS 
< © THEN 2170 

2180 IF NN = 3 THEN INFUT "ENTER SEILL LEVEL";Sk: IF SE = 10 OF SK = © THEN 
SOTO 2180 

2190 IF NN = 4 THEN INPUT "ENTER AMOUNT OF RUNNEFRS";sNi: IF Ni < 1 OF Ni 
* 12 THEN 21590 

ZE00 IF NN = - 3S THEN GOTO 2030 

2210 FEM 


1 
a: IF SS > 10 OF SS 


Nil 


2220 LI = 3 

OO CY, Ae ee. ie a eae a i ee 53 
2240 NU = ¢ 
2250 SH = ¢ 
2260 HI = O 

2270 GOTO 810 

2280 IF FEERK ¢ - 16584) > 127 THEN FOF : GOTO 2030 
2290 A = PEEK ¢ - 16336) 

2500 A = FEEK ¢ - 16336) 

2310 FOR K = 1 TO 200: NEXT X: RETURN 
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RAM SAVING 
AND LOADING 
ROUTINE 


This routine allows blocks of 
RAM anywhere in memory to be 
saved on disk or for programs 
loaded into any place in memory. 
It may also be used to save or 
load machine language pro- 
grams, sprite data, character sets 
or hires and screens. The saving/- 
loading is done by means of ma- 
chine language routines which 
use the Kernal subroutines 
SAVE, SETLFS, SETNAM and 
LOAD. 

The length of the filename is 
stored in location 2. The pointers 
to the start/end of RAM are 
stored in locations 251-254. The 
file name is stored in memory 
Starting at 49152. 

G. Harland 
Elizabeth Downs SA 


REM KR KKKKKKKKKKEKKEKEKKEKKKEKE 
REM * RAM SAVING AND LOADING * 
REM %* ROUTINE x 
REM * BY x 
REM * G.R. HARLAND x 


REM KKRKEKKKKKKKKEKKKEKKEEKKKKKEKE 


WOMWAAQAHAUYN & WN! 


POKE53281,0:POKE53280,0 

10 PRINT" [CLR] (GRN] {DOWN ]" 

11 PRINT"SAVING AND LOADING RAM" 
12 PRINT" (DOWN]" 

15 PRINT"DO YOU WISH TO:-" 

16 PRINT" (DOWN]" 


20 PRINT" GAVE RAM oad det bees ds Fi" 

33 PRINT" WORD: RAMS dis ao cane ws F3" 

40 PRINT" EXIT PROGRAM.......... F5" 

43 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:CLOS 
E15 


45 PRINT" (DOWN) (DOWN]DISK STATUS:";AS;" 
Ms BS." neCSost nD S 

46 PRINT"({DOWN]{[DOWNJPRESS APPROPRIATE K 
EY ‘* 


50 GETIS$S:IFIS=""THEN5O 

51 [FIS="(F1]"THEN180 

52 IFIS="(F3)]"THEN590 

53 IFIS="(F5S)]"THENPRINT"(CLRJ]"!END 
55 GOTO50 


170 REM *** SAVING RAM **% 
180 PRINT" (CLRI]SAVING RAM" 


200 PRINT" [DOWN] [DOWN] [DOWN] " ; 

210 INPUT"(UP]{UP]JENTER THE ADDRESS OF S 
TART OF RAM IN DECIMAL";SA 

220 IFSA<OORSA>65535THEN210 

225... 

230 PRINT" [DOWN] [DOWN] [DOWN] " 

240 INPUT" (UP](UPJENTER THE ADDRESS OF E 
ND OF RAM IN DECIMAL";EA 

250 IFEA<OOREA>655350REA<KSATHEN2 40 


260 HS=INT(SA/256) 
261 LS=SA-256*HS 
262 HE=INT(EA/256) 
263 LE=EA-256*HE 


360 PRINT" [DOWN] [DOWN] [DOWN] " 

361 INPUT"(UP]JENTER LENGTH OF FILE NAME 
(1-15)";NL 

363 IFNL<1LORNL>15THEN361 

364 POKE2,NL 


366 PRINT" {DOWN] [DOWN]" 

370 PRINT"(UP](UP]JENTER THE FILE NAME (" 
;NL; "CHARACTERS ) ";:INPUTFI$ 

380 NN=LEN(FI$) 

390 IFNN<>NLTHEN370 
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395.3: 

400 POKE251,LS:POKE252,HS 

410 POKE253,LE:POKE254,HE 

415 : 

420 FORI=OTONL-1 

430 POKE49152+1,ASC(MIDS$S(FI$,I+1,1)) 
440 NEXT 

441 : 

445 RESTORE 

446 : 

450 FORI=49176T049176+27 

460 READA:POKEI,A 

470 NEXT 

475 : 

490 PRINT" (DOWN]PLEASE WAIT" 

510 SYS49176 

520 GOTO8 

550 : 

S51 % 

580 REM *** LOADING RAM ***% 

590 PRINT"(CLR]JLOADING RAM" 

600 : 

S05 

610 PRINT" [DOWN] [DOWN] [DOWN] " 

620 INPUT"({UP](UP]JENTER THE ADDRESS OF S 
TART OF RAM IN DECIMAL FORMAT";LA 
630 IFLA<OORLA>65536THEN620 

635 : 

640 HS=INT(LA/256) 

641 LS=LA-256*HS 

650 : 

700 PRINT" [DOWN] [DOWN] [DOWN]" 

701 INPUT"(UPJENTER LENGTH OF FILE NAME 
(2°.0) "29ND 

705 IFNL<LORNL>LSTHEN7O1 


706 : 

707 PRINT" (DOWN) [DOWN] " 

708 POKE2,NL 

710 PRINT" [UP] [UP JENTER FILE NAME (";SNL; 
"CHARACTERS ) "; sINPUTFIS 
720 NN=LEN(FIS$) 

730 IFNN<>NLTHEN710 

740 POKE251,LS:POKE252,HS 

745 ; 

750 FORI=0TO3 

760 POKE49152+I,ASC(MIDS(FI$,I+1,1)) 


770 NEXT 


4.3 

773 RESTORE 

fk fe 

776 FORI=1T028 :READQ: NEXT 

780 FORI=49176T049176+27 

790 READA:POKEI,A 

800 NEXT 

805 : 

820 PRINT"[DOWN)PLEASE WAIT" 

840 SYS49176 

850 GOTO8 

860 ; 

865 : se 

900 REM *** MACHINE CODE DATA *** 

910 DATA169,2,162,8,160, 255, 32,186,255,1 
65,2,162,; 69,166,192; 32,183; 255,169, 252 
920 DATA166, 253,164, 254, 32,216, 255,96 
930 DATA169,2,162,8,160,0,32,186,255,165 
,2,262,0,160,192,32,1383,255,463,0 

940 DATA166, 251,164, 252,32, 213,255,96 


READY. 


MULTICOLOUR 
SPRITE EDITOR 


The Multicolour Sprite Editor 
can be used to edit, view, save or 
load a multicolour sprite and 
print or view its data. 

A joystick in port 2 must be 
used to actually edit the sprite; 
use the four directions to move 
the cursor around and use the 
fire button to set a point. 

Sprite colours can be changed 
by using the ‘set sprite colour’ 
option. While editing the sprite, 
_ colours can be changed using 
the function keys (plot colours): 


Fl — multicolour | 

F3 — sprite colour 

F5 — multicolour 2 

F7 — blank (background colour) 
The ‘Print/view sprite data’ op- 
tion allows the 63 bytes of data 
which make up the sprite to be 
printed or viewed. The ‘View ac- 
tual sprite’ option displays the 
sprite you are editing in its ac- 
tual form. It gives an idea of what 
it really looks like in expanded 
and regular form. 

The ‘Save sprite’ and ‘Load 
sprite’ options allow a sprite to 
be saved or loaded in the form of 
a sequential file on disk (alter 
lines 830 and 930 if using tapes). 
The program uses three sprites; 
sprite | is the regular sprite, 
sprite 2 is the expanded sprite 
(sprite | and sprite 2 are used in 
the view option, sprite 3 is the 
cursor in edit mode. 

The cursor in edit mode shows 
the current plot colour as well as 
the background colour. 

Three arrays are used: 


SD(21,12) — contains one ele- 
ment for every pair of bits in the 
sprite. Each element represents 
one dot (from 0-3). 
MD(63) — contains the actual 
sprite data. 
C(4) — contains the four plot co- 
lours (CE holds the cursor co- 
lour). 
Each time the fire button is 
pressed while editing, the SD 
and MD arrays are updated. 
G. Harland 
Elizabeth Downs SA 


REM xKXKKKKKKKKKK 


COMMODORE 64 PROGRAMS 


KEKKKK 


REM ** MULTICOLOUR ** 
REM ** SPRITE EDITOR ** 


REM ** BY 


xx 


REM ** G.R. HARLAND ¥** 


1 

2 

3 

4 

5 

6 REM KKKKKKKKKKEKEK 
7 e 

8 

10 


KKKEKKE 


REM *** INITIALISE *** 


11 POKE53280,0:POKES5 
15 PRINT" (CLR][GRN]" 


20 DIM SD(21,12),MD( 
21 CE=1:C(1)=2:C(2)= 
22 X1=112:Y1=98:X2=2 
23 XX=144:YY=74 

24 SM=12736:EM=12800 
25 RD=0 

26 : 


31 V=53248 

32 POKEV+21,0:POKEV+ 
33 POKE2040,199:POKE 
34 POKE2042, 200 

35 POKEV+28,7 

36 POKEV,X1:POKEV+1, 
37 POKEV+2,X2:POKEV+ 
38 POKEV+4,XX:POKEV+ 
39 POKEV+29,2:POKEV+ 


45 FORI=EMTOEM+23 

46 READQ 

47 POKEI,Q 

48 NEXT 

49 ;: 

50 FORI=EM+24TOEM+63 
51 POKEI,0 

52 NEXT 


60 POKEV+37,C(1) 
61 POKEV+38,C(3):POK 


71 


3281,0 


63) 
6:C(3)=7:C(4)=11 
39:Y2=98 


30 REM *** SET UP SPRITES *** 


16,0 
2041,199 


y1 
3,Y2 
5,YY 
23:2 


EV+39,C(2) 


62 POKEV+40,C(2) :POKEV+41,C(CE) 


100 REM *** MAIN MENU *** 


101 PRINT" (CLR] [DOWN] [DOWN] [DOWN ] MULT 
ICOLOUR SPRITE EDITOR MAIN MENU" 
102 PRINT" [DOWN] [DOWN } DO YOU WISH TO: 


103 PRINT" [DOWN ] [ DOWN ] 


R SPRITE." 

104 PRINT" F3 
105 PRINT" F5 
DATA." 

106 PRINT" F7 
107 PRINT" F2 
108 PRINT" F4 
109 PRINT" F6 
110 PRINT" F8 


Fl EDIT YOU 


SET SPRITE COLOURS." 
PRINT OR VIEW SPRITE 


VIEW ACTUAL SPRITE." 
STOP." 

RESTART." 

SAVE SPRITE." 

LOAD SPRITE." 


111 PRINT" (DOWN) [DOWN ] PRESS THE APPRO 


PRIATE FUNCTION KEY. 
EAZ 2s 


«4d 
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115 GETIS:IFIS$S=""THEN115 
120 IFIS="(F1]"THEN200 
121 IFI$="(F3]"THEN500 
122 IFIS="(F5]"THEN600 
123 IFIS="(F7]"THEN700 
124 IFIS="(F2]"THEN150 
125 IFIS="(F4]"THEN150 


126 IFIS="(F6]"THEN800 

127 IFIS="(F8]"THENSOO 

129 GOTO115 

130 : 

£32 2 

150 REM *** STOP/RESTART *** 


160 PRINT"[(CLR] {DOWN ] [DOWN] (DOWN ]" 

170 PRINT" ARE YOU SURE (Y/N)" 
175 GETAS: IFAS=""THEN175 

176 IFAS="N"THEN1OO 

177 IFAS="Y"ANDIS="(F2]"THENPRINT"(CLR]" 


>: END 

178 IFAS="Y"ANDIS="(F4]"THENRUN 

179 GOTO175 

190 : 

LoL. 

200 REM *** EDIT SPRITE *xx 

202 PRINT"(CLR]" 

210 PRINT" {HOME ] [ DOWN ] SPRITE" 
211 PRINT" [DOWN ] EDITOR" 

212 PRINT"[DOWN][DOWN]JF1 [RVON] 

COL.1" 

213 PRINT" [DOWNIF3 
214 PRINT" (DOWNIFS 
215 PRINT" (DOWNJF7 
216 PRINT" [DOWN ] [DOWN ] 
217 PRINT" i?" 

218 PRINT" FOR" 

219 PRINT" MAIN MENU" 

220. 

221 POKE55539,C(1):POKE55540,C(1) 

222 POKE55619,C(2) :POKE55620,C(2) 

223 POKE55699,C(3):POKE55700,C(3) 

224 : 

225 FORX=15T038 

226 POKE1104+X,100 

227 POKE1984+X,99 

228 NEXT 

229° 3 

230 FORY=3T023 

231 POKE1038+40*Y,103 

232 POKE1063+40*Y,101 

233 NEXT 

234 : 

235 PRINT" [DOWN] [DOWN] CO-ORDS" 

236 PRINT" {DOWN] ";INT((XX-144)/16+.5)+41 
eel Ch eo ay Orso) eae z 

237 POKEV+41,C(CE) :POKEV+21, 4 

238 POKEV+37,0 

259 3 

240 IFRD=1LTHENGOSUB450 

241 RD=1 

242 : 

250 RX=INT(XX/256) 

251 LX=XX-RX*256 

252 AX=RX*4 


{RVOF J] 


[RVON ] [RVOF] COL.2" 
[RVON ] (RVOF] COL.3" 
BLANK" 

PRESS" 
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324 


POKEV+4, LX :POKEV+16,AX:POKEV+5, YY 
POKEV+41,C(CE) 
TX=INT((XX-144)/16+.5)41 
TY=INT((YY-74)/8+.5)+1 

PRINT" [UP ] " 

PRINTYV CURT “sTXs t's TYs 


J=31-PEEK (56320) AND31:GETIS 
IFIS=""ANDJ=255THEN260 
IFJ=lLANDYY>74THENYY=YY-8:GOTO250 
IFJ=2ANDYY<234THENYY=YY+8 :GOTO250 
IFJ=4ANDXX>144THENXX=XX-16:GOTO250 
IFJ=8ANDXX< 320 THENXX=XX+16:GOTO250 
IFJ=16THENGOSUB300 
IFIS="M"THENPOKEV+21,0:GOTO60 
IFIS="(F1]"THENCE=1:GOTO250 
IFIS="(F3]"THENCE=2:GOTO250 
IFIS="(F5]"THENCE=3:GOT0250 
IFIS="(F7]"THENCE=4:GOTO250 
GOTO260 


REM *** FIRE *** 

WX=2*TX-1 

SC=CE 

IFCE=4THENSC=0 
POKE1118+WX+40*TY,160 
POKE1L119+WX+40*TY,160 
POKE55390+WX+40*TY,C(SC) 
POKE55391+WX+40*TY,C(SC) 
SD(TY,TX)=SC 

p=3*TY-2+INT( (TX-1)/4) 
B=7-((TX-1)*2-8*INT( (TX-1)/4)) 
MD(P)=MD(P)AND(255-27B-27(B-1) )OR(SC 


*21(B-1)) 


350 
400 
401 


RETURN 


REM *** REDISPLAY DATA *** 
FORI=1T021 

FORJ=1T012 
IFSD(I,J)=OTHEN468 

XP=2*J-1 
POKE1118+XP+40*1I,160 
POKE1119+XP+40*1I,160 
POKE55390+XP+40*1I,C(SD(I,J)) 
POKE55391+XP+40*1I,C(SD(I,J)) 


NEXTJ 
NEXTI 
RETURN 


REM *** SET SPRITE COLOURS **% 
PRINT" ({CLR] [DOWN] [DOWN] [DOWN ]" 


FORIELTO3S 

PRINT" (UP]JENTER COLOUR";I,;" "; 
INPUTC(T) 
IFC(I)<lORC(I)>15THEN522 
PRINT" [DOWN ] [DOWN ]" 

NEXT 

GOTO60 


591 
600 
605 
610 
IEW 
620 
621 
622 
623 
630 
640 
645 
648 
650 
652 
655 
658 
660 


TO THE MENU" 
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REM *** PRINT/VIEW SPRITE DATA *** 
PRINT" (CLR] [DOWN] [DOWN ]" 

PRINT" DO YOU WANT TO (P)RINT OR (V) 
DATA." 

GETI$S:IFIS=""THEN620 

IFIS="V"THEN6 40 

IFIS="P"THEN680 

GOT0620 


REM *** VIEW DATA *** 
PRINT" (CLR]SPRITE DATA:" 


FORI=1TO63STEP3 
PRINTMD(1I);","s;MD(I+1);",";MD(I+2) 
NEXT 


PRINT" ([DOWN]PRESS ANY KEY TO RETURN 


662 GETIS: IFIS=""THEN662 

664 GOTO100 

665 : 

680 REM *** PRINT DATA *** 

681 OPEN1, 4 

682 PRINT"(CLR]" 

683 PRINT"HIT ANY KEY TO START PRINTING" 

684 GETIS: IFIS=""THEN684 

685 PRINT#1," SPRITE DATA:" 

686 : 

687 FORI=1TO63STEP9 

688 PRINT#1 

689 PRINT#1," "; 

690 FORJ=0TO8 

691 PRINT#1,MD(I+J);","; 

692 NEXTJ 

693 NEXTI 

694 ; 

695 PRINT#1 

696 CLOSE1 

697 GOTO100 

698 : 

699 : 829 : 

700 REM *** VIEW ACTUAL SPRITE *** 830 OPEN2,8,2,"@0:"+SNS+"S,W" 
705 PRINT"(CLR][DOWN]PRESS ANY KEY TO RE 831 : 

TURN TO THE MAIN MENU[DOWN] [DOWN] [DOWN]" 832 FORI=1T04 
710 PRINT"UNEXPANDED: EXPANDED: " 833 PRINT#2,C(I) 
20 % 834 NEXTI 

720 FORI=1T0O63 835 : 

721 POKESM+I-1,MD(I) 836 PRINT#2,CE 
722 NEXT | 837 : 

725 ;: 840 FORI=1T021 
730 POKEV+21, 3 841 FORJ=1T0O12 
741 GETIS: IFIS=""THEN741 842 PRINT#2,SD(I,J) 
742 POKEV+21,0 843 NEXTJ 

745 GOTO100 844 NEXTI 

730 3 845 : 

TOL 3 846 FORI=1T063 
800 REM *** SAVE A SPRITE *** 847 PRINT#2,MD(I) 
810 PRINT" (CLR] [DOWN] [DOWN] [DOWN] [DOWN] " 848 NEXTI 

820 INPUT" ([UPJENTER SPRITE NAME (1-15 CH 850 CLOSE2 
ARACTERS ) 7";SNS 860 GOTO100 
825 L=LEN(SNS$) S70 

826 IFL<1lORL>1LSTHEN820 871 
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900 REM *** LOAD A SPRITE *** 941 FORJ=1T0O12 

905 RD=1 942 INPUT#2,SD(I,J) 
910 PRINT"[(CLR] [DOWN] [DOWN] [DOWN] [DOWN ]" 943 NEXTJ 

920 INPUT" (UP]JENTER SPRITE NAME (1-15 CH 944 NEXTI 


ARACTERS) :"sSNS 945 : 
925 L=LEN(SNS$) 946 FORI=1T063 

926 IFL<1ORL>15THEN9 20 947 INPUT#2,MD(I) 

927 : 948 NEXTI 

930 OPEN2,8,2,"@0:"+SN$+"S,R" 950 CLOSE2 

931: 970 GOTO60 

932 FORI=1T04 980 : 

933 INPUT#2,C(I) 981: 

934 NEXT 1000 REM *** DATA FOR CURSOR *%*% 

935: 1001 DATA154,166,0,90,165,0,106,169,0,16 
936 INPUT#2,CE 8,42,0,168,42,0,106,169,0 

937 : 1002 DATA90,165,0,154,166,0 

940 FORI=1T021 READY. 


MINOTAUR 10 REM**#*MINATOUR MAZE kA KHOR CK 
20 GOSsUB2ae90 
3@ GOSUB1aea 
MAZE 49 Becossaae 


The game Minotaur Maze starts sa GosuBsea9g 

by drawing a random maze on GO IFPP<>@THENae 

the screen then placing a treas- 7Q PRINTCHRS(147)3 "SCORE":SC 

ure (S sign), the Minotaur (a user GQ PRINT"PRESS FIRE FOR ANOTHER GAME" 
defined character) and a man 99 IFPEEK(S6221)* >22aTHENGa 

(another user defined character) 198 GOTO 3¢ 

in the maze. The object of the 19098 REMs««eeMS2E GENERATOR KKKEKRHEKKKEKE 


1919 PPINTCHRS( 147) !PORMESSES0 ,O:SC=O:POKES3S2S1,6 

1@29 FORI=8TQA32 

1921 POKE1@24+1,S4!POKE1924+C+I,0!:POKE1984+1,64:POKE139984+Cr1,0 
[See MER Et 

103@ FORT=aToe4 


game is to move your man to the 
treasure and back to your home 
corner, whereupon another 
treasure will appear. 


The Minotaur moves at ran- 1031 POKE1924+1440,64!POKE 1953+1440,64:POKE1024+C+1 «40,0: POKE1O63+1440+C ,2 
dom until your man secures the 1022 NEXT] 
treasure then the Minotaur ac- 1940 POKE1983,64!POKE1933+C,9 
tively pursues him. If the Mino- 104! POKE19S4,64:POKE1084+C,93 
taur catches your man the game 1942 POKE!LASS,64:P0KE1685+C,9 
ends. Your score depends on 1HS0 FOPI=!G@24TO2023STEFS 
how many treasures you get and 1neo Fel 


1979 FORI=1TO4 
1aT1L O=INTCRNOC1)*4)*"2+1 
{O72 TFORCOO=FORCOL +4) THENIO?F 1 


how long you stay alive. The 
maze drawing routine is slow but 
interesting to watch — so be pa- 


1973 OL=0 
tent. 1975 FORH=1TO6S 

R K. Lamberr 1989 P=P+OR (D>) 

Riddells Vic. 1990 IFP<1924THENP=P+780:GOTO10998 


1695 IFP>2@@esTHENP=P-760:GOTO10390 
1149 GOSUBI116@a 

11190 NEXTH,J,I 

115a@ GaTo 13aa 

116@ IFPEEK CP )=64THENH=6: J=4:GOTO1279 
117 F=0 

118360 FORG=1TOrSTEPe 

1190 IFPEEK*P+OR(G))< >64THENIZ29 
1200 IFF=OTHENF=G:GOTO1229 

1210 F=-1:G=7 

NEC TG 

IFF=-1THENILE7O 

TFF< DQ THENI290 

F=1: IFPEEK (CP +ORC2)9)=64THEMNILEY 
IFPEEK (CP +OR‘3))=64THENIES 
IFPEEK CP +OR CF +3) ) =69THENI27O 
IFPEEK (CP 4OR(F +5) )=64THENI27°O 
POKEP ,S4:POKEF+C ,O 

RESUS! 

POR LS) yas 
POKE1O64+1,22:POKE1L1O4+4!,32:POKE1144+1,32 
MEST I 


) 


yonnNnNhwwwn m 
=~ O30 0b) Ww 6) 6) Ni 
Sx—V2AMYVHA MY 9 


19 


tu) 
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W 
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a) 
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1330 POKE1@65,68:POKE16065+C,3 

13490 PP=19065 

1350 MP=INTCRNOC 19*«1000+!190249) 

1360 IFPEEK CMP) =64THENI35S9 

1370 MO=INTCRNOC1)%*4)42+1:2:L0=M0 

1380 IFMD=1THENPOKEMP ,70:GOTO142e0 

1390 IFMO=3THENPOKEMP ,72:GOTO1429 

19@Q@ IFMO=STHENPOKEMP ,70:GOTO142ea 

1910 IFMD=7THENPOKEMP ,74:GOTO1420 

1420 POKEMP+C ,3 

14260 GCSUBdsanea 

1998 RETURN ; 

LOCH REM*exe IMITIAL IZATION #& HHA KEKE HK 

2095S POKES? ,48:FPQKES6,465 

2918 DIMOR(16)9:0R(1)=90:0R62)=39:0R(3)=-1:0R(4)=-41:C=54272 

e@eea FORT=!TC4 

20290 ORC T14+4)=-ORCIIIORII+B2=ORC IS ORCI+12)=-DR¢1Id 

2840 NEXTI 

2950 S=S5427e2:POKES+e4,15 

2051 PCKES,O | 

21890 PRINTCHRS(!147)3 "MINATOUR MAZE” 

2LID PRINT" Kx RKEKKKEKE KE" 

2120 PRINT"THE MINATOUR MAZE CONTAINS MANY” 

2!30 PRINT"TREASURES,BUT THEY ARE GUARDcCD BY THE” 

2140 PRINT"’MINATCUR,A FERRSOME BEAST WHO KILLS ALL” 

2iS@ PRINT" INTRUCERS IT CATCHES.” 

2155 PRINT"GOOOD LUCK! Itt" 

21727 POKES6234 ,PEEK (S63345 )ANDeS4 

2@1cO POKE!,PEEK CL OANODLS 1 

219@ FORA=aTOS 1! 

CPO FPOKE122S9S+A,PEEK(S32498+A) NEKTA Sis59 

2219 FOKE1,PEEK C1 20R4 S16a 

2229 POKESS334,PEEK(S63349)0R1 Si7ra 

2220 POKESS327e2, (PEEK (53272. AND29O0 .0R 12: RESTORE 5180 

2290 FORAH512TOS33 5:39 

2250 READBYTE :POKE 1229338tA,BYTE S229 

2260 NEXTA S218 

2e70 DIMID¢C10):FORIJ=OTO19 S220 

2280 READJIOCID I NEXTJI 5236 

2370 PRINT"PRESS ANY KEY TO CONTINUE” S231 

2320 GETAS: IFAS=" "THENe2SSO S232 

2330 RETURN S239 

3900 REM***x*xPLAYERS MOVE Keka KKEKKKEKKAKE S259 

3605 POKES+1,20:POKES+S ,O:POKES+tE ,240:POKES+49,33 5269 

3010 IFFPEEK CPP) =7OTHENPOKEPP ,69:GOTO39030 s27a 

32028 POKEPF ,PEEK CrP) +1 S23a 

3Q@3@ PO=255-PEEK (598321) S220 

34035 IFPO=90RPOD > 16THENRETURN S338 

30490 IFPEEK(CPP+J0¢(PO) >) =320RPEEK‘(PP+JO(PD) ) =S6THENSOSS =34a 

3841 RETURN 53590 

3950 PP=PP+JOCPO):SC=SC+riI S3Ea 

396Q@ IFPP< >TPTHENS@SO S378 

2079 SC=SC+18a:TP=0 S3ea 

30808 IFTP< S@THENS1190 S390 

2@20 IFPP<>IDESTHENS1I19 52398 

3120 Ssc=3C+100:GOSUB40a890 6e0a 

31!1@ IFJO¢CPO)=1THENPC=67:GOTOS1490 60108 

3120 IFJIO¢CPO)=-1THENPC=65:GOTO31490 Ga20 

3139 PC=63 6938 

314A POKEPP-JOCPO),3S2:PQKEPP+C,1:POKEPP,PC 6049 

B15Q PRINTCHPS( 13° CHR#(144)3 "2 BRBISCORE” ,SC7CHRS(96) BASH 
CHRS( 96 )CHR#¢ 36 DCHRS(396 ) $969 

3160 PAKES+4,32 SATO 

39290 RETURN saaq 

G00 REM**x*POSITION TREASURE #4 kee EEK saan 

401% TRP=INTCRND(1)*1000+19249> LAP AA 

4A2Q IFPEEK CTP )< >SS2THENSO10 1OH1a 

40439 POKETP ,36:PQKETF+C, 10 19e290 

$339@ RETURN 19A3a 

SADD REMxeeMINMATOURS MOVE e#a KKK KKK KK AK 1agag 

S005 POKES+1,10:PQKES+5,0:POKES+6 ,290:POKES+4,33 1995@ 

5810 IFMO=1THENPOKEMP ,S3:GOTO59528 1egea 

5020 IFMD=3THENPOKEMP ,71:GOTOSasSa 1NAaTS 

5020 IFMD=STHENPOKEMP ,S3!GOTO5050 1e8eAn 

SQ24a POKEMP,73 19Pag 

EQS “TE TP < SOTHENS 23a 1AI1AaAq 

Sasa IFMP=PP THENGOSUBEAHO: RETURN. 181:6 

S1dO Mra INTCOCMP-!10@29)/794G) °:PY=INT*C CP P-1824)74940) REAOY 


MK EMP -MY*«4dO2PX=PP-PY«4a 

IFABS (MY-PY? >ABS (MX -PXK > THENS 138 
IFMxX OP XTHENMD=3:GOTOQS210 
MD=7:GOTOS21a 

IFMY SP YTHEMMD=S:GOoTOse2 io 

Mo= ft 

IFPEEK (MP +OR CMO) > =S2THENS3S39 
IFPEEK (MP +DR (PMO > > S64 THENSS390 
IFRNOC 1) 4198<¢S39THENMDO=LO0: GOTOS240 
MO=LO-2 

IFMO< 1 THENMO=MD +3 

TFPEEK (MP+4OR CMD) > SES THENS 339 
IFPEEK CMP +0R (MD) >=SETHENSSSO 
IFPEEK (MP +0R (MD) >) =S2THENSSSO 
MD=MD +2 

IFMD>ISTHENMD =! 

soTose42 

MP =MP+OR CMD) :LO=MD 
TFMO=1ORMO=STHENPCKEMP ,Fa:GOTOSSTE 
IFMO=3THEMPOKEMP ,F72:GOTOS27O 
POKEMP ,74 

POKEMP+C ,3:PCKEMP-ORCMD) ,SE 
IFMP=PPTHENGOSUBEG SOO: RETURN 
TEMP =TPTHENGOSUS9SO00: RETURN 


{POKES +4, 


ae 
pe Test 


RETURN 
REM*eeMINATOUR KILLS PLAYER 4444 44k 
PP=a 


POKES +5 ,@:POKES+6,24@:POKES+494,33 
POKES +7 ,OSPOKES+11,i72:POCKES+12,6% 
FORL=19GTOLOSTEP=1 
PCKES+1,LiPOKES+8 ,L +20: POKESsSeGi,INT«cL/io0) 
FORT#=1Toig 


PCKES+135,240 


MEXTT ,L. 

PORES #4 -SetPORES+11,162POKESSe3!,14 
RETURN 

DATALSS -255 ,255 -255 ,255 ,-255 -2£35 ,2535 
DATR24,24,3,129,294,49,72,196 


DATA24 ,24,38,129,24,24,24,56 

DATAL4 ,24,16,30,24,28,138,27 

CATAL4 .f4,16,30,24,29,24,28 

DATAeS ,2£S,3,127,28,28,16,16 

DATA2S ,2S,3,127,23,23,4,4 

DATASS ,36 ,32,224 ,60,60,66,123 
DATASE ,26 -32,224,60,60,36,24 

DATAS .6,4,7,68,59,66,123 
DATAS,&S,4,7,60,60,36,24 

DATA ,-40,490,0,-1,-41,393,0,1,-39,41 
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ADVENTURE 


1 GP=O:FIP=0 sF=G sJg=" " 
2 M=oO 

WITHOUT A 3S WHiS:x=03Y=0 
4 KEY=0 iK=7 

NAME = RM=1 © TsBO000 3; I=o 

For the BBC — all you need to Pe aare LOOOO 

know is given in the program. | fee ee abies. ee she easter 

A. Sumner Zz FRINT " You see "s:SES 
Aberdeen NSW 15 PRINT "Visible exits are: ":VES 

Fae 0c ee ae A tT ae Oe 


17 PRINT "What. now "s 
18 IF RM=2z AND T< 4996 AND T> 43390 THEN PRINT "YOU RUN INTO SNARKS. 
eee eee eee e ee e YURK! WHAT A MESS. ":360TO 20500 
— ’D INFUT AS: IF RM = 3OOO AND AS="DRGF KEY” GR AS="DROH WE" OR AY 
= "DR KEY" THEN FRINT "NO! "sGOTO 17 
ZO Li=OsT=T-1 sIF AS="TIME" THEN FRINT T/60 2GOTO 17 
21 IF AS ="L" OR AS = "LOOK"THEN T=T-1: GOTO 10 
24 IF AS= "N" THEN AZS = "NORM" :GOTC1OOO 
2S IF AS= "S" THEN AZS = "SOUFF" 'GGTO01000 
26 IF AS= "E" THEN AZS = "EASTY" 3: GOTO1IO0O 
27 IF AS= "W" THEN AZS = "WESTY" :GOTOLODO 
28 WA = RND(W) :IF AS=""THEN GOTO 17 
29 IF WA = 4 THEN FRINT " A wizard gust fiew ty chasing a Hom 
BDA. 26 6 eee” 
oO LI=Li+1:sIF Li = LEN(AS) THEN AS=" " 
32 IFAS="WAIT" OR AS="GLEEF" THEN FPRINT " You "sAS2T=T-S +G07TG17 
103 IF AS="INV" OR AS="INVENTGORY"” THEN GOTO S500 
110 IFAS="SCORE" THEN FRINT " THERE IS NO SCORE. YOU LIVE UR DIE BY 
VHEs ees oe eet sae  T60TOLT 
111i IFAS="HELF" THEN FRINT "TRY USING TWO OR GNE WURD INFUTS UNLESS 
INSTRUCTED OTHERWISE." :GOTO17 
112 IF RM=S0 THEN FRINT "A GREAT VUICE BUGMS * WHAT WUULD THE SNIV¢eLI 
NG LITTLE WORM BE WANTING IN MY FPRESENTS?? ": INFUT "YOU ANSWER: -—": 7% 
115 IF J$="TI WOULD LINE YOUR HELP” OR JS="HELP"” THEN PRINT "THE VUIC 
E SAY’S ’°TELL ME THE FASS WORD’. ":GOTOL1I=: 
114 IF RM=F AND AS="GET FPIPE"ORAS="TANE PIPE" THEN FRINT "OK" SeT Pao: 
GOTO17 
115 IF J$="PLEASE"OR JS="FLEASE HELF'" THEN FRINT "THERE IS A BLINDIN 
G FLASH... YOU HAVE WON. "SEND 
250 BS = MID$(AS,L1, 1) 
235 IF BS = " “THEN Li=t1i-1 ELSE 30 
240 AISG= LEFTS(AG. LI) 
250 AZS = RIGHTS (AS, LEN (AS) —-L1-1) 
230 AS = "" 
305 REM +++4++++4+++ COMMANDS +4+44+4+4+444 
3510 IF LEFTS(A1S,2)= "6G" OR LEFTS (Ai, 2) 
315 IF LEFTS(A1$,2)= "WA" GR LEFTS (Ais, =) 
316 IF LEFT$(A1$,2)= "LO" OR LEFTS$(A1$, 2) 
A' THEN 2000 
C17 IF LEFT#(A1$, 2) "Gk" OR LEFTS(A1S, S)= "TAR" HEN Boon 
S18 IF LEFTS(A1$,2)= "DR" OR LEFTS$(A1$,3)= "THR" TREN 4oou 
219 IFLEFTS$S(A1$, 2) ="OFP"ORLEFTS(A1S$, 2) = "UN" THENGUTUSE OO 
S20 IFLEFTS (ALS, 2) ="CL"URLEFTS$ (ALS, 3) ="SHU" THENGOTU4A SOO 
3900 GOTO 17 
LOO sREM se: o0 sew ee eee Os RUN, WALK. SUMP: 5 Sao wo S268 Sw Se 
1004 IF RM=2 AND LEFT# (ALS, =) "WE" THEN RM=4: GOSUB 1LOOOOrGOTUS 
‘20035 IF RM=1 AND LEFTS(AZS, =) "NO" THEN RMS? GOSUB LOODOISUTG 3 
1007 IF RM=2 AND LEFTS$(AZS$, =) "SO" THEN RM=1:2 BNSUR i1OMed9r5agTus 


"RU" THEN 1000 
"JU" THEN 1000 
"EX" UR LEFTS (ALS, S)= "RE 


1! 


It i 


"ES” THEN RM=S: GUSUB 10000:GUTCS 
"EA" THEN RM=2:°:5G0USUB 1LOOK00:G0TUG 
"WE" THEN RM=S2:GUSUB LOOOO:GuUTOY 
"WE" THEN RM=6:50SUB 1Od00OO0:GaTUS 
"ER" THEN RM=4:G05UR 10000:GUTOS 
"EA" THEN RM=S:G05UR 10000:50TUS 
"NO" THEN RM=7:GUSUE 106000:GUTOS 
"SO"THEN RM=GiGOSUB LoOo0O:50TUS 
1017 IF RM=8& AND LEFT$ (AZS, 2) "WE' THEN RM=1:GUSUBR 10000:GUTUS 
1018 IF RM=1 AND LEFTS$(AZS, 2) "EA' THEN RM=4:GO5UB 1O0O02:50TUS 
10193 IF RM=12 AND LEFTS(AZS$, 2)="SO" THEN X=Of8 Y=O:GUSUBZEO00OO:G0TOUS 
1020 ITFRM=3000AND LEFTS$ (AZS$, 2) ="NO"ANDX=OANDY=OTHENRM=1 2° GUSUBLOOO0O:S 
OTOS 
1O21 IFRM=9000AND LEFTS$ (ASS, 2) ="NO" THENY=¥-1 :GOSUBZEO00 fG0TU9 
1022 TFRM=S000AND LEFT$(AZS, D)="SO"THENY=¥41 SSOSUBVEOU0 PT GUTuUS 


1009 IF RM=2 AND LEFTS$(AZS, =) 
1910 IF RM=4 AND LEFTS (AZS, =) 
1OL1 IF RM=4 AND LEFT (ASS, 2) 
1O1l2 IF RM=S AND LEFTS(AZS, 2) 
1101S IF RM=S AND LEFTS$(AZS, =) 
1014 IF RM=6 AND LEFTS$(AZS, 2) 
1015 IF RM=G AND LEFT$ (ASS, =) 
1016 IF RM=7 AND LEFT$(AzS, 2) 


ou 


tow ou 
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1023 IFRM=J000AND LEFTS$(AZS, Z) ="EA" THENX=X+1 :GOSUBZ6E000: GUTUS 
1024 IFRM=9000AND LEFTS$(AZ$, 2) ="WE" THENX=X—1 :GOSUBZE000 § GUTUS 
1025 IF RM=8 AND OF=6 ANDLEFTS (A2ZS$,2)="NO" THEN RM=S:GUSUB1IOOOO:GUTOS 


1026 IF RM=10 AND LEFTS$(AZS$, 2)="EAR" THEN RM=11 2 GUSUB1LO000260TUS 

1027 IF RM=11 AND LEFTS(A2ZS$, 2)="SO" THEN RM=12:GUSUE1O0OO: GUTOY 

1029 IF RM=9 AND LEFTS$(AZS$, 2) ="EA" THEN RM=10:GUSUB1LO000:GOTUS 

1050 IF RM=9 AND LEFT$(AZS,2)="S0" THEN RM=8:GUSUB10000:GUTUS 

1036 IF RM=10 AND LEFT$(AZS,2)="WE" THEN RM=9:GUSUB1LON00 : GOTU9 

1037 IF RM=11 AND LEFTS(A2ZS$, 2)="WE" THEN RM=10:GUSUB1O000:GUTOY 

1038 IF RM=12 AND LEFTS$(AZ$,2)="NO" THEN RM=11:GOSUB10000:GOTUS 

1039 IFRM=8 AND LEFT$(AZS$,35)="DOG"AND OF =6 THEN RM=9:GUTO 10000:GUTOY 
1043 IF RM=12 AND LEFTS(AZ$, 2)="EAQ" THEN RM=80:GU05UB100002:50TUS 

1045 IF-RM=1 AND PIP=9 AND LEFTS(AZ$,2)="TU" THEN RM=40: GUSUB1 OOOO: GU 
TO9 

1046 IF RM=40 AND FIFP=9 AND LEFTS$(AZ$,2)="TU" THEN RM=1:2:GUSUB1O0O00: Gu 
TOS 

1900 PRINT " YOU CAN’T ."sFOR D=1TO1000:NEXT:GOTOS 

2000 REM @@@@CECCT LOUK eCe@eeeee 

2001 IF RM=8ANDLEFTS$(AZS$, 5)="DWA" THEN FRINT "HE IS OFF HIS FACE. ": GUT 


2002 IF RM=7 AND LEFTS(AZS$, 2) ="CR"THENPRINT"IT HAS A KEY IN IT. "26GTO 


2003 IF RM=40 AND LEFTS$(AZS$, 2) ="PL"THENPRINT" IT HAS WRITTEN GN IT ? Fd 
ease 15 good manners.’ ":GOTO17 

2004 IF RM=40 AND LEFTS$(AZS, 2) ="BI"THENPRINT"IT IS LUNG GUNE NUuW. "2: GU 
TO17 

2990 PRINT "IT IS A "sAZSIGUTO 17 

5000 REM @C@CRCECCEECEGETEECCEREE 

S005 IF RM=K AND I=0 ANDLEFTS$(AZS$, 2) ="KE"THEN KEHMZI=SiP RINSE "OK" 2GUT 


3009 IF P=RM AND PIP=0 ANDLEFTS(AZS, 2) ="PI"THEN PIP=9:PRINT "OK" 2GOTO 


5400 FRINT " WHAT 27777977 You’ re onlv a Hairvoditie remembe 


s 2 fF F Ff 8 


5430 GOTO 17 
S500 REP I NV 6 26264 


3505 PRINT "THOU HAST IN THY FOSSESTION:-" 

3507 IF PIP=9 THEN PRINT " A PIPE FULL WHICH GIVES UF A FAINT GLuW. ” 
3510 IF I=S THEN PRINT ” A KEY." 

5390 GOTO 17 

4000 REM @@CCCEDROFCECECE 

4010 IF LEFTS$(A2ZS, 2) ="KE"ANDI=STHEN IT=O2K=KM FHPRINT "OR" SGOSUB LOQOO: 
GOTO 17 

4012 IF LEFTS(AZS$, 2) ="FPI"“ANDHIFPHRESTHEN FPIPHEOZH=ERM FHRINT "ON" PGOUSUB 10 
Q007GOTO 17 

43500 FRINT "I don’t have a "sAZS 

4305 GOTO 17 

4500 REM ee HHRKOP ENR ERE 

4505 IF RM=8 AND I=5 AND LEFTS(AZS$,2)="DU" THEN FRINT "IT Is NUW OFEN" 
s0F=6:GOTO17 

4590 FRINT "My dear fellow, I am terribly sorry but that Cannot be do 
ne. ":GOTO17 

4800 IF RM=8 ORK RM=3 AND LEFTS(AZS$,2) = "DU" THEN OF =O 2 PRINT "IT Is 
NOW CLOSED. ":GOTO 17 


4890 FRINT " HOW DO EXPECT mE TU SHUT THAT '!!!":GOUTO 17 
10000 REM OOOGG00000 LOCAT ocDDGD000U0 

10002 IF RM=1 THEN LOS = "IN A SMALL HUT. ": SES = "A DARK TUNNEL. "2VES 
= "NORTH , EAST." 

10003 IF RM=2 THEN LOS = "ON THE EDGE OF A ROAD. "2Sk$ = "TWU SNARKS CU 
MING FROM THE EAST. ":VE% = "SOUTH , WEST ,EAST" 


10004 IF RM=2 AND Tt 43996 AND T> 4990 THEN FRINT "YOU RUN INTO SiNARKS. 
we cer eee cee eee TUN! WHAT A MOLE MUNCHING MESS. " 

1000S IF RM = 3 THEN FPRINT" YOU ARE ATTACKED BY THE SNARKS AND TURN AHA 
RT.":GOTO 20500 

10006 IFRM=4THEN LOS="0N A WIDE ROAD": VES="EAST , WEST" 2 S&S="NUTHING" 

10007 IF RM=S THEN LOS="0N A WIDE ROAD. "2 VES="EASE AND WEST. "I SES="NUT 
HING. " 

10009 IF RM=6 THEN LOS="0N A WIDE RUAD. "2 VES="ERST, NURTH. "2SE$="NUTHIN 
G. (but you hear running water.)" 

10010 IF RM=7 THEN LOS="BY A CREEK. "SVES="SOUTH. "iSES="THE Wide CREEN. 
10011 IF RM=8‘THEN LOS="IN A LOW BUT WIDE RUOM." SVES="WEST, NORTH THRO 
UGH A DOOR. ":SES="AQ PIPE. "SIF T>4993 THEN St a2"Q SHURT DWARF SMUKING A 
FIFE. " : 

10015 IF RM=2 THEN LOS = "ON THE EDGE OF A ROAD. "VES = " WEST, SUUTH 

,EAST." :SES="TWO SLEEPING SNARKS TO THE EAST. "2iF T)4S90THENSES= "TWO 
SNARKS COMING FROM THE EAST. ":VES = "WEST , SUUTH. " 

10020 IF RM=9THENLOS="0N A ROAD": VES="EAST, SUUTH. "I SES="NOT AQ THING.” 
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10021 IF RM=10THENLOS="0N A ROAD": VES="EAST, WEST." 2SES="NUTHING” 
10022 IF RM=11THENLOS="0N A ROAD": VES="WEST , SOUTH ."!:Sr$="NOTHING. " 
10025 IF RM=12THENLOS="IN A GARDEN BESIDE A HOUSE”: VES="EASGT | SUUTH , 
NORTH. "!:SE$="TREES TO THE SOUTH. " 

10025 IF K = RM AND RM<(>7 AND I (5 THEN Sk$=Sk$+" and a key.” 

10026 IF RM=40THENLOS="UN A PATIO SURROUNDED BY THICK VINES." 2 VES="TUN 
NEL. ":SE$="Q BIRD WHO JUST DROPPED A PLANK AND IS NUW MILES AWAY." 
11000 IF RM=80 THEN LOS="in front of a great stone alter." 

11001 IF RM=80 THEN S&$="the Great Lord of DEATH." !VES="NUNE. "SHE TURN 
11004 IFRM=80 THEN GOTO 100 

11006 IF RM=8 AND PIF = 9 OR FOB THEN SES="NOTHING. " 

11007 IF RM=F AND PIP = © THEN SES=SES+" and a pipe.” 

20000 RETURN 


20500 FPRINTZFRINT " WOULD YOU LIKE YOUR BUDY RENEWED FOR ANOTHER GA 


ME." 

20501 AS=GETS 

25002 IF AS = "YY" THEN RUN 

25003 IF RM =9000 AND AS = "DROF KEY" THEN FRINT " GET STUFFED! IT M 


AY BE VALUABLE. " 

25005 GOTO 20501 

26000 LOS=" In a forest surrounded by trees," I'S5&8= "NUTHING. “sVES= NY 
RTH, SOUTH, EAST, WEST. " 

ZE005 RM=QOOO 

26050 RETURN 


THIRTY ST AGES © REM THIRTY STAGES... 
1 REM BY S.VRAKATSELIS & D.MCKENZIE 
This game is for the BBC Micro. 2 CLS:FRINT"DO YOU WANT INSTRUCTIONS Y OR N?" 
The object ofthe game isto get 2 iecintneronrosee 
from the battlefield to your home 9 : iat 
base. Although it sounds easy 9 FD=INT(RND (1) k20+100) 
you'll have to deal with bandits 10 G=100 
who try to steal your gold. You 20: BSEN ERNE Tae? 
start off with 100 gold bars; when oe Oo 
40 AM=10000 
you reach home base you should SO F=INT(RND (1) #3004100) 
have at least 5 left. The rest of 60 ST=1 


the game is explained in the list- 
ing. 


70 SF=INT CRND (1) 1404100) 
73 REM THIS IS THE INFORMATION AVAILABLE ON SCREEN A. 
80 DEFFROCSCREENA 


S. Vrakatselis & D. Mckenzie 81 CLS 
Launceston Tas. 90 FRINT" SCREEN A STAGE ":ST 
100 IF ST<1 THEN FROCSTAGE2? 
120 FRINT "SFEED ":SF 3 " FUEL ":F 
130 FRINT “AMMO ":AM" GOLD "3G 


140 FRINT "BANDITS ";B" ARMOUR ";A"%" 
150 FRINT "SCREEN "“: INFUTAS 
160 IFAS="A"THEN FPROCSCREENA 
161 IFAS="" “THENFROCSCREENA 
170 IFAS="B"THEN FROCSCREENEB 
171 ENDFROC 
180 REM THIS ASKS YOU WHAT YOU WANT TO DO ON SCREEN B. 
400 DEFFROCSCREENE 
410 CLS:FRINT" SCREEN & STAGE"ST 
29 FRINT"Do you wish to fire?":INFUT AS: FROCFIRE 
420 FRINT"Accelerate,brake,or maintain speed?": INFUTAS: FROCABM 
440 FRINT"FUEL IN "“3FD" KILOMETRES" 
450 FRINT"Do you wish to stop there?": INFUTAS: FROCSTOPYORN 
460 FRINT“Armour points remaining";sA"%" 
471 FROCSTAGE 
476 PRINT"SCREEN": INFUTAS 
480 IFAS="A"THEN FROCSCREENA 
481 IFAS="" "THENF'ROCSCREENB 
490 IFAS="E"THEN FROCSCREENB 
300 ENDFROC 
600 DEFFROCF IRE 
610 IFAS="Y"THEN AM=AM-900 
620 IFAM?9000 THENB=B+4;: IFE< 10RB=OTHENR=B+5: AM=AM-— 1500: A=A-1: ENDFROC 
621 LFAM = 4000QNDAM¢ 9000THENB=B-2: G=G-5: A=A—-2: IFAX 1ORA=OTHENFROCNDA: ENDPROC 
620 IFAMZ1000 THENB=B-1:AM=AM-1000: A=A-S: IFAS 10RA=OTHENFROCNDA: ENDPROC 


640 IFAMZ10RA=OTHEN FROCNOBULLETS: ENDFROC 
650 IFAS="N" THEN ENDFROC 

651 IFB=0 ORB«1THEN FROCNOB: ENDFROC 

660 ENDFROC 


670 DEFFROCNOBULLETS —— 
680 CLS: FRINTTAB(10,10)"NO BULLETS LEFT":FOR I=1 TO 9000: ENDFROC 


740 ENDFROC 

750 DEFFROCARM 

760 IFAS="A"THEN SFH=SF+40;F=F-20 

770 IFSP2250 THEN FROCSFEED: ENDFROC 
780 IF FxiORFS=OTHEN FROCEMF TY: ENDPROC 
790 IF F2400 THEN FROCTOOMUCH: ENDFROC 


i i 
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800 IFAS="B" THEN SF=SF-20;F=F-S: ENDFROC 

810 IFAS$="M"THEN F=F~-10: ENDFROC 

S20 ENDPROC 

B20 DEFFROCSTOPYORN 

840 IFAS="Y" THEN SF=SF-SF' 

SSOIFSF=OTHEN FPRINT"BANDITS FLOG FIVE GOLD BARS":G=G-5:F=F+150:A=A—-S:1F A=0 TH 
EN PROCENDA: ENDFROC 

870 IFSF=0 AND G?80 THEN CLS: FRINT" BANDITS STEAL YOUR GOLD.":G=G-10:A=A-10: FOR 
I=1 TO 9000: ENDFROC 

880 IFAS="N" AND F=F-10:A=A-S: TIFF 1LORF=0 THEN FROCEMF TY: ENDFROC 

890 ENDFROC 

900 DEFFROCEND 

910 CLS:FRINT"AFTER "3ST" STAGES, YOU ARE OUT OF FUEL AND RANDITS STORM YOUR TR 
UCE, TAKING YOUR GOLD!" 

920 FROCYORN 

30 DEFFROCSFEED 

940 CLS:FRINT "YOU ARE TRAVELLING AT MAXIMUM SFEED":F=F-S0 :SF=SF:IF SF2250 TH 
EN SF=SF-20:FOR I=1 TO 7000: ENDFROC 

960 DEFFROCEMFTY 

970 CLS:FRINT"NG FUEL LEFT.BANDITS TAKE YOUR GOLD.":G=G-G: FORI=1TO9000; FROCYOR 
N 

980 DEFFROCTOOMUCH 

990 CLS:FRINT "YOU HAVE TOO MUCH FETROL.A LOT JUST SFILLED OUT THE TANK. "F=F-1 
00: ENDFROC 

1000 DEFFROCSTAGE 

1010 IFAS="Y" OR AS="N" OR AS="A" OR AS="B" OR AS="M" THEN ST=ST+1: ENDFROC 

1020 IFAS<2"Y" OR AS<>"N" OR ASS >"A" OR ASE S"B" OR ASS >"M" THEN ENDFROC 

1030 ENDFROC 

1040 DEFFROCYORN 

1050 FRINT"WANT ANOTHER GO.Y OR N?" 

1060 INFUTAS: IFAS="Y" THEN RUN 

1070 IFAS$="N"THEN FRINT"YOU WEREN*T VERY GOOD ANYWAY, GOODBYE! ":END 

1080 IFAS="_"THEN FROCYORN 

1090 DEFFROCSTAGE? 

1100 IF ST=20 THEN FPROCWIN 

1110 IF ST=<30 AND ST?1 THEN FROCBUMF'S: ENDFROC 

1111 IFST=60RST=S8ANDSF=80THENFROCSMALLBUMF : ENDFROC 

1112 IFST=100RST=29ANDSF= 1 60THENFROCBEIGBUMF : ENDFROC 

1120 ENDFROC 

1130 DEFFROCWIN 

1140 CLS:FRINT "CONGRATULATIONS! YOU HAVE REACHED HOME BASE.THESE ARE YOUR RESUL 
TS:" 

1150 FRINT"GOLD: "G 

1160 PRINT"ARMOUR: "AM"Z" 

1170 FRINT"AMMO: "A 

1180 PRINT"FUEL: "F 

1190 FROCYORN 

1200 DEFFROCBUMFS 

1210 IF SF=80 THEN FROCSMALLEUMF: ENDFROC 

220 IF SF=140 THEN FPROCBIGBUMF: ENDFROC 

1230 ENDFROC 

1240 DEFFPROCSMALLBUMP 

1250 CLS:FRINT"YOU HAVE JUST HIT A SMALL BUMF'-MOST BANDITS HAVE FALLEN OFF 
te 

1260 B=B-2: ENDFROC 

1270 DEFFROCBIGBUMF 

1280 CLS:FRINT"YOU JUST HIT A BIG BUMF-1 BANDIT GONE AND 10 BARS OF GOLD WIT 
H HIM." 

1290 B=B-1:G6=G6-10 

1300 ENDFROC 

1310 DEFFROCINSTRUCTIONS 

1315 CLS 

1320 PRINT CHRS$(141)"THE THIRTY STAGES" 

1330 PRINT CHRS(141) "THE THIRTY STAGES" 

1340 FOR T=1 TO S000:NEXT T 

1250 CLS 

1260 FRINT" YOU ARE THE DRIVER OF AN ARMOURED TRUCK AND HAVE BEEN FIGHTING ON TH 
E DREADED -~BATTLEGROUND-!" 

“£370 FRINT' YOU HAVE BATTLED SUCCESSFULLY AND HAVE @ BOGTY GF ton GOLD BARS YOU. 
MUST TRY AND GET THESE BARS TO YOUR HOME BASE." 

1380 FRINT"SOUNDS SIMPLE DOESN’ T IT?PWELL IT ISN*T! YOU MUST DRIVE THROUGH THIRT 
Y STAGES TO GET THERE,AND THERE ARE BANDITS ALL THE WAY! THE BANDITS WILL TRY AN 


D STEAL THE GOLD." 

1390 FRINT" THESE BANDITS ARE HIGHLY SKILLED AND WILL HANG ON TO YOUR MOVING 
VEHICLE TO GET THE GOLD.YOU CAN DEFEND YOURSELF THOUGH. " 

1400 FRINT"ON YOUR FERSON THERE IS A MACHINE-GUN WITH TEN THOUSAND ROUNDS OF 
AMMUNITION YOU CAN USE THIS ON BANDITS, BUT YOU CAN NOT REFLENISH YOUR ANMO." 
1410 FRINT"HIT RETURN TO CONTINUE" 

1411 INFUTAS: IFAS="""THENFORI=1T01000: NEXT 

1420 CLS:FRINT"YOU ALSO HAVE 100 ARMOUR FOINTS. BANDITS WILL BREAK THROUGH YOUR 
ARMOUR TO TRY AND GET YOUR GOLD.IF YOU STOF (FOR FUEL) THEN IT WILL MAKE IT EAS 
TER FOR THEM.IF YOU GO VERY FAST, THEIR OCCUFATION WILL BE A HAZARDOUS ONE." 
1430 FRINT"IF YOU STOF FOR FUEL,BANDITS WILL GET SOME OF YOUR GOLD: IT IS UNAV 
OIDABLE.IF YOU DON’T STOF FOR FUEL THOUGH, YOUR TRUCE WILL BREAK DOWN,AND TH 
EY WILL GET ALL OF IT." 

1440 FRINT"IF YOUR ARMOUR FOINTS GET TOO LOW. THEN EANDITS WILL GET ALL OF YOUR 
GOLD. THERE IS NO WAY TO GET ARMOUR FOINTS BACE!" 

1450 FRINT"HIT RETURN TO CONTINUE” 
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1451 INFUTA$: IFAS=""— "THENFORI=1T01000: NEXT 

1460 CLS:FRINT" THE BEST WAY TO FROTECT YOUR ARMOUR-AND YOUR GOLD IS TO GO VERY 
FAST. HOWEVER THIS INVOLVES ANOTHER HAZARD.AT RANDOM SFOTS THROUGHOUT THE THI . 
RTY STAGES THERE ARE BRUMFS IN THE ROAD." 


1470 FRINT'IF YOU HIT ONE OF THESE BUMFS VERY FAST THEN GOLD WILL BOUNCE OUT OF 
THE TRUCE. IF YOU HIT A SMALL BUMF NOT SO FAST YOU WILL SHAKE ALL THE BANDITS O 


FF." 
1480 FRINT"GO NOW-AND FACE THE CHALLENGE OF: The Thirty Stages!!" 
1995 FRINT"HIT RETURN TO CONTINUE" 

1996 INPUTA$: IFAS="_"THENENDF'ROC 
2000 ENDFROC 
3000 DEFFROCNOB 


3010 IFB<¢SOTHEN G=G-S:1F B=O OR BC 1 THEN B=B+8:ENDFROC 

2011 IFA=O ORAS1THEN FROCNDA: ENDFROC 

2012 DEFFROCNDA 

ZO1% CLS:FRINT"NO ARMOUR-BANDITS TAKE ALL YOUR GOLD": G=G-G:FROCEND 


4000 DEFFROCENDA 
4010 CLS:FRINT"ALL ARMOUR RIFFED OFF-BANDITS FLOG YOUR GOLD. ":G=G-G:FROCEND 
22767 


30 
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CONVERTER 00100 ON ERROR GOTO 1240 


OO1L10 CLS: INVERSE: CURS 22,1 :PRINT" SELECTER "NORMAL 


Converter is a program selection 00120 CURS 7,3!PRINT"1. PROGRAM 1 " 
menu with some special func- 00130 CURS 7,4!PRINT"2. PROGRAM 2" 
tions. These include: erasing 00140 CURS 7,5:PRINT"3. PROGRAM 3” 


Eseaicleana Thi 00160 CURS 7,7!PRINT"S5S. PROGRAN 5" 
on other disks and so on. Inis 00170 CURS 7,8:PRINT"&6. PROGRAM 6" 


program is for the Premium 00180 CURS 7,9 ! PRINT "7. PROGRAN 7" 

Series Microbee and if to be used 00190 CURS 7,10 : PRINT "8. PROGRAM 6" 

| ard Microbees the ‘HI- 00200 CURS 7,11 ! PRINT "9. PROGRAM 9° 
A adken fh uiaie 00210 CURS 7,12 : PRINT "10. PROGRAN 10" 
SIateMments SNOuIc-De 00220 CURS 7,13 : PRINT "11. PROGRAM 11" 
changed to ‘HIRES’. 00230 CURS 7,14 : PRINT "12. PROGRAM 12" 
G. Halliday 00240 CURS 35,3 : PRINT "13. PROGRAN 13” 

re) U =PRINT"14. PROGRAM 14" 

Wishart Qld 00250 CURS 35,4:PRINT"1 


00260 CURS 35,5:PRINT "15. PROGRAM 15" 

00270 CURS 35,6:PRINT "16. PROGRAM 16" 

00280 CURS 35,7!:PRINT "17. PROGRAM 17" 

00290 CURS 35,8:PRINT"18. PROGRAM 18" 

00300 CURS 35,9:PRINT "19. PROGRAM 19" 

00310 CURS 35,10:PRINT"20. PROGRAM 20" 

00320 CURS 35,11!PRINT "21. PROGRAM 21" 

00330 CURS 35,12:PRINT "22. PROGRAM 22" 

00340 CURS 35,13:PRINT "23. PROGRAM 23" 

00350 CURS 35,14:PRINT "24. PROGRAM 25" 

00360 CURS 35,15:PRINT "25. MAIN NENU " 

00370 CURS 10,14:PRINT:PRINT"WHAT NUMBER WOULD YOU LIKE" 

00380 INPUT A 

00390 ON A GOTO 410,420, 430, 440, 450, 460, 470, 480, 990, 500, 510,520, 530, 540, 550, 540, 
570,580,590, 600, 610, 620, 630, 640, 650 

00400 IF A>16 THEN GOTO 380 

00410 RUN"PROGRANL" 

00420 RUN"PROGRAH2" 

00430 RUN"PROGRAN3" 

00440 RUN” PROGRAMS" 

00450 RUN"PROGRANS" 

00460 RUN"PROGRAM6" 

00470 RUN"PROGRANZ" 

00480 RUN"PROGRANS" 

00490 RUN"PROGRANS" 

00500 RUN"PROGRANIO" 

00510 RUN"PROGRAMNI1L" 

00520 RUN"PROGRANI 2" 

00530 RUN"PROGRANL3" 

00540 RUN”PROGRANI4" 

00550 RUN"PROGRANIS" 

00560 RUN"PROGRAMI6" 

00570 RUN”"PROGRAMI7" 

005380 RUN"PROGRANI8” 

00590 RUN"PROGRANI9" 

00600 RUN"PROGRANZ20" 

00610 RUN"PROGRANZ21" 

00620 RUN"PROGRAN22" 

00630 RUN"PROGRAN23" 

00640 RUN” PROGRAHZ24" 

OO650CLS:HIRES2:PLOTI 0,755 TO 511,255 TO 511,10 TO 0,10 TO 0,255 
00660 PLOTI 0,220 TO 511,220 : PLOTI 0,222 TO Si1,222 

00670 PLOTI 0,33 TO 5i1,33:PLOTI 511,12 TO 0,12 

00680 CURS 20,2 :PRINT "“SELECTER NAIN MENU" 

00690 CURS 20,15: PRINT "PROGRAM BY CRAIG HALLIDAY" 

00700 CURS 20,4:PRINT "1. KILL A FILE” 

00710 CURS 20,5 !PRINT "2. RENANE A FILE" 

00720 CURS 20,6:PRINT "3. DISK DIRECTORY" 

00730 CURS 20,7!PRINT "4. LOG IN DIFFERENT DISK" 

00740 CURS 20,8 :PRINT "5S. LOAD A FILE " 

00750 CURS 20,9 : PRINT "6. GO BACK TO FIRST NENU" 

00760 CURS 20,10 : PRINT "7. GO BACK TO D.O.S.” 

00770 CURS 10,13: PRINT "INPUT SELECTION"$: INPUT B 

00780 ON B GOTO 790,900,990, 1070, 1150, 1220, 1230 
OO7FOCLS!:HIRES2:PLOT!I 0,255 TO 511,255 TO 511,10 TO 0,10 TO 0,255 
00800 PLOTI 0,220 TO 511,220 : PLOTI 0,222 TO 511,222 

00810 PLOTI 0,33 TO 511,33:PLOTI 511,12 TO 0,12 

00820 CURS 23,2 !PRINT "SELECTER KILL MENU" 

00830 CURS 20,15: PRINT "PROGRAN BY CRAIG HALLIDAY” 

00840 CURS 12,4 :PRINT "NOTE : DO NOT DELETE FRON ORIGINAL DISK." 
00850 CURS 12,5 :FRINT "DELETE ONLY FROM OTHER DISKS. OKAY." 
00860 CURS 12,6! PRINT "IF NO FILE TO BE KILLED THEN PRESS <RETURN>” 
00870 CURS 12,7 : PRINT "INPUT FILE TO BE DELETED WITH EXTENSION" 
00880 CURS 12,8:INPUT F1$% 

00890 IF F1S ="" THEN GOTO 6S50ELSE KILL Fi%:GOTO 790 
OOVOOCLS:HIRES2:PLOTI 0,255 TO 511,255 TO 511,10 TO 0,10 10 0,255 
00910 FLOTI 0,220 TO 511,220 : PLOTI 0,222 TO 511,222 

00920 PLOTI 0,33 TO 511,33:PLOTI 511,12 TO 0,12 

00930 CLIRS 23,2 :PRINT "SELECTER RENANE MENU" 


a1 


MICROBEE PROGRAMS 


00940 CURS 7,4:PRINT "NOTE : ENTER ORIGINAL NANE FIRST THEN NEW NANE SECOND." 
00950 CURS 14,5:PRINT "REMENBER TO INCLUDE EXTENSION" 

00960 CURS 10,7 : PRINT "OLD NANE "s:INPUT O1%:CURS 10,8 : PRINT "NEW NAME"j: IN 
PUT NI¢ 

00970 IF O1$="" THEN GOTO 650 : NANE O1% AS Nis GOTO 900 

00980 NANE 01% AS Ni$:GOTO 650 

OOSSOCLS!HIRES2:PLOTI 0,255 TO 511,255 TO 511,220 : PLOTI 0,255 TO 0,220: PLOTI 
0,12 TO 0,33 :PLOTI 511,12 TO 511,33 

01000 PLOTI 0,220 TO 511,220 : PLOTI 0,222 TO 511,222 

01010 PLOTI 0,33 TO 511,33:PLOTI 511,12 TO 0,12 

01020 CURS 21,2 :PRINT "SELECTER DIRECTORY MENU” 

01030 CURS 20,15! PRINT "PROGRAN BY CRAIG HALLIDAY" 

01040 CURS 10,4:PRINT "REMEMBER ONLY DRIVES A,B,N,L" 

01050 CURS 10,5 :PRINT "WHICH DRIVE FOR DIRECTORY LIST"$: INPUT DIS:CURS 10,5 !:DI 
R Dis 

01060 KIS=KEY$: IF Ki#="" THEN 1060 ELSE GOTO 650 

OLOZOCLS:HIRES2:PLOTI 0,255 TO 511,255 TO 511,10 TO 0,10 TO 0,255 

01080 PLOTI 0,220 TO 511,220 : PLOTI 0,222 TO 511,222 

01090 PLOTI 0,33 TO 511,33:PLOTI 511,12 TO 0,12 

01100 CURS 20,2 :PRINT "SELECTER LOG IN NENU" 

01110 CURS 20,15: PRINT "PROGRAM BY CRAIG HALLIDAY" 

01120 CURS 12,4: PRINT”"NOTE: SELECT DRIVES A,B,tM,L ONLY." 

01130 CURS 10,5 :PRINT "WHICH DRIVE TO LOG TO”"$: INPUT D1%:CURS 10,5 :DISKRESET D 


01140 GOTO 650 

OLLSOCLS:HIRES2:PLOTI 90,255 TO 511,255 TO 511.10 TO O,10 TO 0,255 
01160 PLOTI 0,220 TO 511,220 : PLOTI 0,222 TO S11i,222 

Oo1170 PLOTI 0,332 TO 511,33:PLOTI Siit,i2 TO 0,12 

01180 CURS 20,2 :PRINT "SELECTER LOAD NENU" 

01190 CURS 20,15: PRINT "PROGRAM BY CRAIG HALLIDAY" 

01200 CURS 12,4:PRINT "NOTE : ENTER WHOLE DISK NANE" 

01210 CURS 12,6 : PRINT "WHAT PROGRAN 10 LOAD"$: INPUT P18: IF PiIS="" THEN 650 EL 
SE RUN P1% 

01220 GOTO 110 

01230 SYSTEM 

01240 CLS 


01250 PRINT "ERROR IN THE PROGRAN, PLEASE PRESS RESET ":GOTO 1250 


FROGS LEGS 


Frog’s Legs is a game where you 
are caught in a marsh with a pair 
of frog’s legs. These legs are in a 
terrible mood as they have lost 
their body, therefore everyone 
they see, they try and kill. See if 
you can get to the top of the 
screen without being munched. 
You cannot run through any 
bush, but you are armed with a 
weeding wand which you can use 
three times only. You use the 
wand, when you have no way of 
getting past the frog’s legs, by 
pressing one of the four keys in 
the diamond I-J-K-M; I kills a 
weed above you, M below you, J 
to the left and K to the right. 
Movement is achieved by using 
the keys < for left, and > for 
right, OQ for up and A to go down. 
G. Heathcote 
Ingleburn NSW 


@G149 REM PROG"S LEGS sy tess 

GALiG REM WRITTEN FOR THE MICROBEF MARCH ‘86 

98120 REM BY GRAHAM HEATHCOTE 

G@G13G@ S2s=""Si1S=""2S52G="" 

@B14@ CLE 

OBASG FORC=17TO43: CURSC, 2: PRINT"-":NEXTC: FORC=17TO43: CURSC,14:PRINT"-"2NEXTC 


88169 FORC=128+16TO768+17STEP464: CURSC: PRINT" 1" 2NEXTC 
AGI7G FORC=128+42T0768+42S5TEP 64: CURSC: PRINT" 1" 2 NEXTC 
@G6189 FORC=3TO12 

G419@ FORR=18T042 

GB20G A=INT(RND#¥1G) +1 

G@AB219 IFACS I= (648(C-1))+(B-1) 2: 1=1+61446: POKEI,12 
988220 NEXTB:NEXTC 

GBA2ZIA X=3Gi Y=13:POKE ( (6144G+x%-1+ (64¥(V-1)))),7 

G9B29B F=3G:G=7:POKE ((6144G+F-1+ (64¥(G-1)))),22 

@425@ E=3:Mi=1 

GO26G S=PEEK (262) :SiS=CHR(S) :S2K=S1H:S3S=S1S 

89278 IFS=SBTHEN4469 

A4238G POKE262,¢4 

OB29B R=X: T=Y°U=F:2V=G6 

GA32GG IFSIS="K"ORSIS="J"ORSIS="M"OGRSiIH="1"3 IFESGTHENZ OA 
GB319 IFSIS="Q" 2 Y=Y-1 

GOS285 IFSAS="A" 2 VY=Y+1 

99338 IFS1$=",""5xX=X-1 

GA349A IFSiIS="."2XK=xK+l 

90350 IFS2$="R":G=G-1 

@8636@ IFS2$="C":G=Gti 

GA379 IFS3$="D":F=F-1 

AG3SG IFS3$="F"iF=Ftti 

99396 IFS2$="R"QRS2K="C"GRS32S="D"ORS3$="F"THENS39 


GG48H IFSIS="OQ"GRSIS="A"ORSIG=", "ORSIS=". "THEN652 
O441G CURSR,T:PRINT" "SPOKE ((6144G+xX-1+ (64¥(Y-1)))),7 
98429 CURSU,V: PRINT" "“:POKE( (61446+F-1+ (64¥(G-1)))),22 


@G43G GATA26G 

GA44G X=RIVY=TSPLAY2:Mi=MNiL+1:GOTO41¢ 

OB45G F=U:G=V: GOTI42a 

GO646G IFF<CKS S3aS="F" 

BO497G IFFOMX: S3S="D" 

GAG434G IFG<CY:S2s="C" 

OG490 IFGY:S2S="R" 

GGIGG IFG=Y:S2$=CHR() 

OBS1G IFF=X:S3S=CHR (9) 

A4452@ GQATO299 

93534 IFASC (S3S) < >@ANDASC (S24) >< @THENS?@ELSE IFASC (S3%) =GTHENS4@ELSES5S9 

9A549 IFS2$="R"ORS2H="C"2Q=(649¥(G-1))+(F-1) 2 Q=0+614949: IFPEEK (Q) =S2THEN4S1LGELSEIFP 
EEK (Q) =7THEN67GELSE45@ 

GG550 IFS3$="D"ORS3S8="F"5Q= (64¥(G-1))+(F-1) 2 Q=Q+61444: IFPEEK (Q) =32THEN4IBELSEIFP 
EEK (@) =? THEN67GEL SE45G 

GA56G GATAIEG 


32 


ce Cee 


MICROBEE PROGRAMS 


ABIIEA 
OOI8HB 
AABSIS 
GBIEGG 
GA6i1G 
GA620 
OBH63E8 
GA64G 
AGED 


Q=(64¥(G-1))+(F-1) 5 Q=Q4+614949 

IFFEEK (Q) =S2THENG1¢ 

IFPEEK (Q) =? THEN67G 

IFS3#8="F": IFPEEK (Q@-1)=32:F=F-1:GOTO419 
IFS32$="D": IFPEEK (Q+1)=32°:F=F+i: GOTO41G 

IFS2$="C": IFPEEK (Q-64) =32: G=G-1: GOTO419 

IFS2$="R": IFPEEK (Q+64) =32:G6=G+i:GOTO41¢9 

GOTO456 

Z=(64¥(Y-1)) + (X-1) 5 IFPEEK (24+6144@) =32THENG19ELSEIFPEEK (6144@+Z) =45ANDY=2TH 


EN6469ELSE IFPEEK (614496+2) =22THEN67GELSE449 


AGS66HA PLAYI2513314;5;15:CURSL:PRINT"YOU WIN! !";GOTO6é8d 
G@94678 CURSU,V:PRINT" ":CURSF,G:PRINT"X":PLAY4$ 35231: CURSL: PRINT” YOU LOSE!!!!";e= 
4 
69620 PRINT"YGUR SCQRE IS "INT(FLT(E) /Mi¥199) 
9690 PRINT"PRESS ANY KEY TO GO AGAIN ":S=USR(32774) > RUN 
AG74GAG ITFSiISB="K"2D=((6144G+X+ (64¥(Y-1)))) 
AAFIG IFSIS="I": D=( (6144H+X-2+ (G4R(Y-1)))) 
OA724G TFSASF="I"3 D=((6144G4+%-65+ (64% (Y-1)))) 
GA739 IFSIS="M"2D=( (6144G+X+463+ (64¥(Y-1)))) 
OG746 IFFEEY (D)<>12THEN26G 
O975A0 E=E-1:POKED, 32: GO0TO269 
MAZE SEARCH 00100 REM This game is something a little different which I wrote about 
00110 REM two years ago and never got around to sending in. By using the 
This game is something a little 00120 REM [/ 3; @ for up down left and right respectively, we 
different which | wrote about two 00130 REM maneouvre around the maze quite blindly using memory and 
years ago. By using (, /, - and @ 00140 REM logic as our navigation. If you must cheat, press H for a 
for up down, left and right re- 00150 REM hires locator plan (the target flashes), but this will cost you. 
spectively we manouvre around 00160 REM The more you wander around, the more points get chewed up! 
ato ; . 00170 REM Replenish your score by swallowing 
the maze quite blindly USING 00180 REM (spacebar) the spots when you find them. 
memory and logic aS OUFr Naviga- 00190 REM Use these REMs for a title page of your awn design (I’m too lazy!) 
tion. If you must cheat, press H 00200 REM Fernando C Gonzalez 492CMI RAAF BASE EDINBURGH 5111 
for a hires locator plan (the tar- 00210 CLS: INPUT"How many spots ? "V 
get flashes), but this will cost 00220 LORES: DIM M(100): POKE 220,16 
you. The more you wander ie pa eeu eh aaa 
; : 00240 READ MA) 
around, the more points get Gorse Here A 
chewed up! Replenish your score 00260 z=1: A=0 
by swallowing (spacebar) the 00270 T=INT(RND¥100) 41 
spots when you find them. Use 00280 A=INT(RND¥100) +1 
the REMs for a title page of your 00290 IF @=V THEN 540 ELSE LET S1=FLT (MCA) ) 
: , 00300 MI=FLTCINT(S1/1000) ) 
Own design (I m too lazy!) 00310 CLI=FLTCINT(Si1-1000#M1)/100) 
F. Gonzalez 00320 D1=FL1(INT(S1-1000%M1-100¥C1)/10) 
Edinburgh SA 00330 UL=FLTCINT(S1-1000%M1-100#%C1-10%D1)) 
00340 CLS: Z=Z-1! IF A=T THEN PLOT 63,24 TO 65,24: PLOTH 63,24 TO 65,24 . 
00350 IF Ul=1 THEN PLOT 20,40 TO 107,40 ELSE PLOT 20,40 TO 20,47: PLOT 107,40 TO 
107,47 
00360 IF Di=i THEN PLOT 107,40 TO 107,10 ELSE PLOT 107,40 TO 127,40: PLOT 107,10 
TO 127,10 
00370 IF C1=1 THEN FLOT 20,10 TO 107,10 ELSE PLOT 20,10 TO 20,0: PLOT 107,10 TO 
107,0 
00380 IF M1=1 THEN PLOT 20,10 TQ 20,40 ELSE PLOT 20,10 TO 0,10: PLOT 20,40 TO O, 
40 
00390 CURS 28,14: PRINT "Score" Z 
00400 KIS=KEYS: IF Kit=""THEN 400 
00410 IF (Ki8="5 "OR K1S="+") AND M1=0 THEN LET A=A-1: GOTO 290 
00420 IF (KiS="C€" OR K1iS="€") AND U1L=O THEN LET A=A-10: GOTO 290 
00430 IF (KisS="@" OR KiS=""") AND D1=O0O THEN LET A=A+1: GOTO 290 
00440 IF (KisS="/" OR K1iS="?") AND Ci=0O THEN LET A=A+#10: GOTO 290 
00450 IF Kis=" " AND T=A THEN LET 2=Z+50: @=Q+12 PRINT"": T=INT(RND¥100) REM pri 
nt"" is actually print” (control G)”" 


00460 
00470 
00480 
00490 
00500 
Oof10 
003520 


IF Ki%="H" OR KiS="h"THEN LET Z=Z-9 ELSE 290 

HIRES: PLOT 78,48 TO 78,142 TO 282,142 TO 282,48 TO 78,48 
Y=140-1O#INT(FLT(T/10))3 X=804+208(T-LOXINT(FLT(T/10))) 

SET X,Y:SET X+1,Y: SET X+1,Y+1: SET X,Y+t1 

E=140-LO¥#INT(FLT(A/10))! D=80+20%(A-1LO#INT (FLT (A/10))) 

SET D,E:SET Dt1,E:SET D+l1,E+1:SET D,E+l 

FOR G=1 TO 6!:RESET D,E:RESET D+i,E:RESET D,Eti:RESET D+ti,Et+i:PLAY 0,4:SET 


D,E:SET D+l1,E:SET D+tl,E+ti:SET D,Eti:PLAY 0,4:NEXT G 


00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 


CLS: LORES: GOTO 290 

CLS: POKE 220,111: INVERSE: CURS12,8: PRINT "CONGRATULATIONS" 
NORMAL: CURS12,12: PRINT "Your score is " Z 

DATA 1001,1,101,11,1001,111,1011,1001,111,1011 

DATA 1110,1100,11,1100,100,101,100,0,101,110 

DATA 1001,111,1010, 1011, 1001, 101,11,1010,1101, 11 

DATA 1010,1001,110,1010,1010,1011,1110,1010,1011,1010 
DATA 1000,0,11,1100,0,0,101,100,10,1010 

DATA 1010,1110,1100,101,0,0,101,111,1010,1010 

DATA 1000,101,101,101,10,1010, 1011, 1001,100,10 

DATA 1010,1101,1,101,10,1100,10,1100,111,1010 

DATA 1010,1001,110,1011,1100,111,1100,101,111,1010 
DATA 1100,100,101,100,101,101,101,101,101,110 


et ht PA eS a SS Sf RSP SS SDE A PR SSS A TE SE SS SE TORY 


93 


MAZE RACER 


See how far you can get with this 
real time puzzle game. I’ve found 
that if you’re not too good the 
losing tune will drive you crazy! 
F. Gonzalez 


Edinburgh SA 


54 


MICROBEE PROGRAMS 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00130 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 

ELSE 
00270 
00280 
00290 
00300 
00310 
00320 
003350 
00340 
00350 


CLS: F=0 

PRINT "Q@ = UP" 

PRINT "A = DOWN" 

PRINT "@ = LEFT" 

PRINT "\ = RIGHT" 

PLAY 0,32 

CLS 

LORES 

PLOT 0,0 TO 98,0 TO 98,36 TO 14,36 TO 14,12 TO 70,12 TO 70,24 TO 42,24 


PLOT 98,42 TO 0,42 TO 0,6 TO 84,6 TO 84,30 TO 28,30 TO 28,18 TO 56,18 

X=O! Y=3!: A=1: B=O0 

SET X,Y 

IF PEEK(258)=17 THEN 270 

IFPEEK (258)=1 THEN 280 

IF PEEK(258)=0 THEN 290 

IF PEEK(258)=28 THEN 300 

X=X+A: Y=Y+B: IF X=120 THEN LETF=F+1: GOTO 330 ELSE IF POINT(X,Y) THEN 310 
210 


OUT 2,64: OUT 2,0: B=1: A=0: GOTO 260 
OUT 2,64: OUT 2,0: B=-1: A=0: GOTO 260 
OUT 2,64: OUT 2,0: B=O: A=-1: GOTO260 
OUT 2,64: OUT 2,0: B=0: A=1: GOTO 260 
CURS 30,8: PLAY 5,535,535,235,638, 5375237, 5355 235,534, 235,5 


PLAY 0,32: GOTO 100 

CLS 

LORES: IF F>1 THEN 400 

PLOT 0,40 TO 30,40 TO 30,24 TO 10,24: PLOT 30,40 TO 60,40 TO 60,24 TO 50,2 


4: PLOT 60,24 TO 60,8 TO 10,8 


00360 


PLOT 60,40 TO 80,40 TO 80,8: PLOT 80,40 TO 100,40 TO 100,8: PLOT 20,32 TO 


0,32 TO 0,16 TO 40,16 TO 40,32 TO 50,32 


00370 


TO 90, 


00380 
00390 
00400 
00410 
00420 
00430 
00440 


PLOT 40,16 TO 50,16: PLOT 0,16 TO 0,0 TO 70,0 TO 70,32: PLOT 70,0 TO 90,0 
32: PLOT 90,0 TO 100,0 

X=O: Y=VY-3: A=1: B=O 

GOTO 210 

IF F>2 THEN 440 ELSE PLOT 0,0 TO 40,0 TO 90,14:PLOT 0,10 TO 20,10 TO 90,32 
¥=O: Y=5: A=1: B=0 

GOTO 210 

LORES: CLS: IF F>3 THEN 520 

PLOT 0,5 TO 0,47 TO 100,47: PLOT 0,20 TO 75,20 TO 75,10: PLOT 12,15 TO 12, 


O: PLOT 24,20 TO 24,5: PLOT 36,135 TO 36,3 TO 86,5 TO 86,25 


00450 


PLOT 0,0 TO 100,0 TO 100,42: PLOT 12,25 TO 98,25 TO 98,43: PLOT 86,47 TO 8 


6,30 TO 79,30 TO 79,47: PLOT 36,37 TO 63,37 TO 63,30 TO 0,30 


00460 
36,40 
00470 
00480 
00490 
00500 
00510 
00520 
28,12 
00530 


PLOT 75,25 TO 75,40 TO 12,40 TO 12,34 TO 60,34: PLOT 12,43 TO 24,47: PLOT 
TO 48,44: PLOT 63,43 TO 75,47 

PLOT 48,8 TO 48,17 TO 63,17 TO 63,8 TO 48,8 

X=O0!: Y=3: A=1: B=0 

GOTO 210 

IF F>4 THEN 570 

CLS: LORES 

PLOT 0,0 TO 119,0 TO 119,36 TO 0,36 TO 0,4 TO 105,4 TO 105,28 TO 28,28 TO 
TO 77,212 TO 77,20 TO 54,20 

PLOT 0,2 TO 112,2 TO 112,30 TO 21,30 TO 21,10 TO 84,10 TO 84,22 TO 49,22 T 


0 49,18 TO 70,18 TO 70,14 TO 35,14 TO 35,26 TO 98,26 TO 98,6 TO 7,6 TO 7,34 TO 1 


12,34 
00540 
00550 
00560 
00570 


PLOT 119,32 TO 14,32 TO 14,8 TO 91,8 TO 91,24 TO 42,24 TO 42,16 TO 63,16 
X=O: Y=1! A=1: B=0 

GOTO 210 

REM 


MICROBEE PROGRAMS 


HORSE RACE 


Horse Race, as its name sug- 
gests, is a horse racing program 
_for the Microbee. It features ex- 
cellent PCG graphics and can 
handle up to six players. To play 
the game, enter the number of 
players and their names and 
start betting. The game ends 
when all players are broke or all 
but one are broke. 

What determines whether a 
horse wins or not? It’s a combi- 
nation of the horse’s odds and 
randominity. Line 820 in the pro- 
gram controls this. You can also 
change the horses’ names by 
changing the data at line 1160 to 
1180 — but be sure there are six 
names in total! 


S. Machin 
Lismore Heights NSW 


GAIBE 
OBii1g 
GGB120 
GGAISS 
BA149 


@o15e 


@G160 
GAIIA 
BALae 
BS19G 
BALA 
G89219 
BS22A 
BA23G 
AS29S 
GI25G 
GA26E 
GOB27A 
BS28A 
BI29O9 
GAIIGS 
GA319 
aG32e 
GAAIS3IA 
OB34ASN 
SSIIS 


FEM * + HEE HEHEHE 44% LEREE 


REM  ¥ ¥ ¥ ¥ ¥ % ¥ ¥ ¥ 

PEM SEEEEN  F *% MERE % Se 

REM ¥ ¥ ¥ ¥ $¥ ¥ ¥ + + 

PEM + + SEE ¥ % UHE HEBEE 

REM 

REM BREE EHR $E¥ HRERE 

PEM ¥ + + ¥ +¥ % F 

PEM BEER MEME E eo SEE 

REM ¥% ¥ +¥ + + HF F 

REM * + *% * HME SHR 

REM 

REM BY SEAN MACHIN 1986 

REM 

REM FOR THE MICROBEE 

REM 

SD6: SPEED@: CLS: CLEAR: RESTGRE: POKE 229,85:REM ERASE CURSOR 
DIM H1(5),0(5),P¢5,2) 

CLS! CURS2@9: INVERSE:PRINT" HORSE RACING “!:NORMAL 
FOPI=@ TO 5 

READ Hi$(1T):REM READ HORSE’S NAMES 

OCI) =INT(CRND¥15)+8:REM GIVE THEM EACH SOME RANDOM ODDS 

NEXTT 

RESTORE 12@@:FORI=9 TO S:FORR=1 TO 2:READ P(1,R):NEXTR: NEXTI 
POKE 226,44:CURS 20,5: INPUT"HOW MANY PLAYERS ARE THERE?"5P! 
TF P!£<t THEN 34@ ELSE TF P1i>6:CURS 16,7:PRINT"SORRY, YOU ARE GNLY ALLQWED 


6 PLAYERS": GOSUBI14@:CURS 1,7: PRINT[A64 32]:G0NTO 344 


GBO34PN 
GA37S 
MBASBS 
BI3G 
BAAS 
BO41aG 
GBS4290 
SG4A3a 
BAAGS 
GA45G 
GSI6G 
BAAAT7S| 


994286 


AG4IG 
AaS5aG 
SIS1a 
GSS2A 


P2=P1 | 

DIM P&CINT(PL)) ,A@CINT(PL)), BOCINT(P1L)) ,H@CINT (PL) ) SRO=RND¥499+59 
FORI=1 TO INT(P1) 

CURS 5,1+8:PRINT“ENTER YOUR NAME PLAYER"}SI" °§ 

INPUT P@S(1I):IF POS(I)="" THEN 399 
A@(I)=RA: BACT) =G:HA(T)=8 

NEXTI 

CLS:POKE 229,85 
CURS2@:INVERSE!:PRINT” HORSE 
PRINT"TODAY’s 
FORI=9 TQ 5 
IF Q¢CI<L:Q(T)=1 ELSE IF Q(1)>25:0¢1)225 

PRINT“HORSE NO. "$141, """"SHIS(I) 3%"? "SCURS38,I+3:PRINTOCI4 OFT) 13" TO 1 


RAC ING "NORMAL 
SIX HORSES AND THEIR ODDS: -” 


NEXTTI 

FORI=1 TO INT(P2) 

IF INTCA@(T))<¢1 THEN S7@ 

PQKE 229,64: CURS 1,192PRINTLAGS 3213:2CURS 1,18:PRINT POS(T)", YOU HAVE S"CF 


8.8 AS(T)I" HOW MUCH ARE YOU WILLING TO RBET"$: INPUTBO(T):°PQKE 22¢,85 


B9EA3e 


CURSI, 11° IF B@CT) AGB(I) :PRINT"YQU DON’T HAVE THAT MUCH! ":GOSUBI1149:CURS 1, 


LIsPRINTCASS 323:GATA 529 


AaS49 


BA55e 


229,85 


PASS 


CURSI,11°1IF BACT) <L° PRINT" you HAVE TO BET SOMETHING! *:GOSUBI14@: LenS 1,11: 


' PRINTCASS 321:6Q0QTO S2¢@ 


PQKE 226,64: CURS 1,11° INPUT"WHICH HORSE DO YQU WANT TO BET ON";H@( 1) > PQKE 


CURS 1,125 IF H@(TI<! AR H@CT! >6:PRINT"NGQ SUCH HORSE! ":GOSUBIL4@:CURS 1,125 


PRINTLASS 323:60QTO 559 


BBS7S 
9958Q 
SaSoa 
OAEIS 
AGE1G 
BSE28 
AAGIS 
BG64G 
BB965a 
SBBE6S 
BO6VE 
88689 
AG6IG 
GB7GG 
BAILA 
OS72G 
GOS?73A 
AA74AD 
GS758 
A876a 
AATZ7A 
GOB7BA 
AA79IG 
ABABA 
8a8ia 
AAB2H 


CURS 1,1@:PRINT(CA128 3217: NEXTI 

CURS 29,13:PPINT"ARE ALL THE BETS CORRECT?" 

KIS=KEY:IF Kis=""_THEN 59@ 

IF KiS="N" OR KiS="n" THEN 430 

CLS: NORMAL: N=1:PQKE 220,27 

CURS2@:PRINT" HORSE RACING *"*:GOSUB 19998 
RESTORE 12@@:FORI=@ TQ S:FORR=1 TO 2:READ P(I,R) 3 NEXTR:NEXTI 
PCG:FORI=3 TO 13 STEP 2 

CURS4, ISPRINT"“ITICD" 

NEYTI 

FORI=3 TQ 13 

CURS63, I: PRINT"K" 

NEXTT 

NARMAL t 

FORI=3 TO 13 STEP 2 

CURSI, I:PRIMTN: N=N+1 

NEXTI 

N2@:FORT=4 TQ £2 STEP 2 

CURS8,I:PRINT CASS 294) 

NEXTTI 

PLAY 26,43 263 243 233 223 213 243 233223 21,439516317314315512513313,859,4 
CURSI,1S:PRINT"AND THEY'RE OFF!" 

FORI=3 TQ 13 STEP 2:CURS6,I:PRINT" “sNEXTI 

IF P{N,1)>56 THEN asa 

N=N+1:IF N>S:N=o 

P(N, 1)=P(M,1)+INT (RND¥3+25/FLT (O(N) )#.84)3REM ALGORITHM TO WORK OUT HOW FA 


R FORWAD EACH HORSE GOES 


AABIS 
GI84G 
agase 


GQSUB 144¢ 
GOTO age 
CURSL, 14: PRINTLAL26 321] 
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@9869 CURSI,15:PRINTHIS(N)" WON!" 

OGB7S9 PLAY 1431235163185 12514314,4 

eesseg GosuBI149 

BISA N=N+1: CLS! INVERSE: CURS 20,1:PRINT"---=== THE RFSULTS 
@9999 WO=G:FORI=! TO INT(P2) 

Q@GO1G IF INTCAG(I)) <1 THEN LET W@=WO+1:GQTO 94@ ELSE PRINT P@S‘T)" "§ 

BB92G IF HOCT)COELTON) SPRINT"LOST S"INT(BOCT))32AA(TI-AG(T)-BAITISIF AGIT)<ISPI= 
P1-1:PRINT® >>>>> YOU ARE BROKE! ":WO=WO+l ELSE TF H@CT)YO>OFL TIN) SPRINT", YOU NQW 
HAVE $"{F&.@ AG(I)) 

@G93G IF INTCH@IL))=N: INVERSE!PRINT"WON &"CF7.@ BOCI)*¥FLT(Q(N-1))3" YaU NOW HAV 
E S"ZS:AG(1)=AG( 1) +FLT(O(N-1))*BO(T) SPRINT (FR. AGT) 1:NORMAL 

@994@ NEXTI 

@@950 IF Wa<P2-1 THEN 99@ ELSE LET I=@ 

@496 IF WA=P2 AND P2°L:PRINT\\"YOU ALL LOST'"!:PQKE 226,113:END ELSE IF Wa=P2:PR 
INT\\ "YOU LOST": POKE 226,111:END 

@G7G T=l+li: IF AM(I<1 THEN 976 

@698@ IF P2¢>1:PRINT\\ "CONGRATULATIONS "P@S(I)", YOU ARE THE WINNER'":PQKE 22@,1 
11:END 

aa9oe GOSUBI14¢ 

@199@ FORI=@ Ta 5 

@IGIO IF I+l=N:Q(T)=O(L)-1 ELSE LET Q(T)=Q(T) +1 

@192@ NEXTI 

@i@3a GOTA 43¢@ 

GiG4G IF P(N, 1)>57:P(N,1)=57 

@1i@S@ CURSP(N,1),P(N, 2) :PCG: T@=RND 

GiG6a IF TO¢.S:PRINT"  ABCD";:NORMAL: RETURN 

G@197@ PRINT"  EFGH";:NOQRMAL: RETURN 

@1iGa@ RESTORE 1229 

@1@9@ FORI=-1998 TO -a17 

@119@ READA:POKE 1,@ 

@iL1i@ NEXTI 

@1129 FORI=-1536 TQ -1521:PQKE 1,@:NEXTI!RETURN 

@113@ REM WAIT FOR KEYBOARD INPUT 

@114@ IF KEY="" THEN 1148 ELSE RETURN 

@11S5@ REM DATA FOR HORSE’S NAMES 

@116@ DATA"REDSKIN", "PRINCE DANIEL" 

@117@ DATA"QDYSSEY", "MR T.", "GOOD VICTARY" 

G1I8G DATA"FIGHTING FURY" 

@119@ REM HORSE STARTING POSITION DATA 

BLZAG DATA 7435755575275 7595 7p11, 7,13 

G121@ REM PCG DATA 


ase -- "VV IE NOPMAL 


@122G DATA @,9,9,9,9,8,15, 48, 8G, 168, 68, 7,12, 16, 33,98 

@1239 DATA G,G,8,9,9, 7, 248,9,9,8, 254, 35,197,128, 4,0 

@124G DATA @,4,8,9,9,255,9,9,9,8,7,254,1,5,4,¢ 

G125@ DATA G,9,32,89,89,136,52,58,1, 255, 29, 134, 64, 146, 144,64 

Gi26G DATA G,9,9,9,G,9,15,48,88, 49,72, 39,2,1,9,4 

@1279 DATA G,9,9,9,5,7,248,9,5,9, 254,97, 32,144, 149,192 

G128A DATA &,4,9,9,4,255,9,8,9,8, 7, 254, 36, 66, 129,134 

@129G DATA G,G,64,148,176,8,52,59,1,241,15,9,9,9,9,9 

PA3IG DATA 255, 168, 1849, 168, 128, 184, 168, 184, 128, 187, 142, 163, 128,178, 128, 255 


B131G DATA 244,82, 198, 87,197,85,197,127,1, 221,17, 221, 3,172,8, 248 
@132G DATA 64,52,494,52, 449,52, 94,52, 44,52, 94,52, 44,52, 44, 60 
G133A DATA G,9,9,5,%, 255, 192,142, 192, 142,192, 147, 192,197,126, 255 


HORSE RACING 

1 fe ee : 
TNO 000 E0000 2 On 0 OO Oooo oon Eo coe § 

2 fe ee 
DICE 

3 te ae ‘ 


4 FQ oe 
TO 
5 ae : 
PUUPEPURRRED URED URED OPER DEERE UU ER EEE EEO EEE EEE EE EEE EEE EEE EEE EEE 


6 FB a 


is? 


AND THEY ’RE OFF! 
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PICK A CARD 


This program will allow a com- 
puter to select any randomly 
chosen card from a standard 
deck. The player just has to an- 
swer ‘yes’ to the computer's 
statements as they appear on the 
screen. 

The secret is in how the opera- 
tor uses the space bar when an- 
swering. If the space bar is used, 
then the program will branch to 
the appropriate routine. 

For example, if the chosen 
card is black, then the answer to 
‘Have you chosen a card?’ will be 
‘YES—’ (extra space). This will 
cause the next statement, line 
305, ‘Your card is black, right?’ to 
appear. 

Run the program and study 
the listing and you will soon see 
its operation. When you've got it 
right you will confound your 
friends. 

The sub-routine at line 1000 is 
simply a ruse to waste time in 
order to give the player the op- 
portunity to think about his or 
her replies to the computer's 
statements. 


A. Birmingham 
Baulkham Hills NSW 
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86059 


HHA6B 
QHB65 
AnBTO 
5] eape 
STS b RSIS) 
86165 
96119 
86H115 
AB125 
96125 
MaL1Z6 
96136 
96135 
9A140 
AGZag 
5 dS ba 
AuZ1E 
Aa214 
H6215 
ABZSE 
AB2SS 
Ag230 
AAZ5H 
98255 
HB268 
90265 
Aa3BB 
Ag 05 
903108 
86315 
AB3zH 


98360 
92409 
Ba4a5 
pn406 
90407 
99403 
e418 
AA415 
ne420 
an425 
A438 
8435 
na443 
gn475 
9a4aa 
gn4s9 
Qasaa 
AG5O5 
A510 
Qa515 
9550 
8555 
an6ag 
Aa6aS 
aasae 
9610 
A615 
AREZe 


CLS: PRINT™.* 


PRINT, "PICK A CARD FROM AH ORDINARY PACK." 
PRINT. "AHSHER MY STATEMENTS AND I WILL" 
PRINT. "SELECT THE CARD THAT ‘OU HAYE CHOSEN" 


PRINT 


PRINT, "HAYE YOU SELECTED A CARD?" 


INPUT" | 
IF ASCCAG#)= 89 THEN 200 
IF ASCCAGS)= 78 THEN 125 


PRINT, "ILLEGAL ENTRY. PLEASE T’ 


PLEASE TYPE YES OR NO. "AG% 


(PE YES OR HO" 


PRINT, "I WILL THIME FOR A WHILE " 


GOSUB 1M@a 


PRINT, "UHTIL YOU’RE READY" 


GOSUB 1986 

CLS$:GOTO 96 

IF LEN AGS <4 >3 THEI 30 
GOSUB 1864 

INPUT" ‘YOUR CARD If RED, 
IF LEN AB%IOC>3 THEN 25 
5 = |i 

GOSUB LhaG 


INPUT" ‘YOUR CARD IS A DIAMOHD 


GOTO 488 
Co - & 
27" 6 


GOSUB 1090 


INPUT" YOUR CARD [S fi HEART 


LOTTO 468 

GOSUB 1868 
INPUT" ‘YOUR CARE 
IF LENC ABS“ >3 THE 324 


os p= a 
2 eat 


GOSUB 1488 


IHPUT" YOUR CARD I5 A CLUB 


GOTO 468 
GOSUB 1988 


$= 4 


INPUT" ‘YOUR CARD If A SPA 
7 


IF LEN¢ ABS > >3 THEN 
LOSUB 1966 

INPUT” ‘OUR CARD IS 2 
IF LENC AGS 3 THEM 68a 
GASUB 198a 

IHFUT" YOUR CARD IS A 
IF LENC ABS 53 THEN 494 
GOSUB 18B8 

IHPUT" YOUR CARD IS A 2 
IF LEHC ABS I. 33 THEH 475 
Yre 

BOTO 15089 

YWo= 3 

GOTO 1509 

GOSUB 1ag8 

IHPFUT" ‘QUR CARD IS A 4 
IF LEHC AGS >< >3 THEM S3a 
va | 

GOTO 1588 

{I = 5 

GOTO 1508 

GOSUB 1986 


m2 


IHFUT" YOUR CARD IS A G.¢% 


GOSUB 1800 
IF LEMS AGS O%>2 THEN 65 
IMFUT" ‘YOUR CARD IS A 
IF LEH AGS 2673 THEM 6 


cn 


i} | ANS 


"ABS 


3 BLACE, RIGHT? "ABS 


"AAS 


"RES 


"ARS 


2.3,.4,0R 5 “AGS 


"AS 


"ABS 


qe eer i SSS eee 
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Ages Y= 6 
ARGS GATTO 1a6u 


Oe il 


AGESS Y= 7 


HAS4a GOTG Like 
BA6IB VEE 


aegs2 GOTO 158g 

aa7aG GCOSUR 1486 

BATAS INPUT" ‘YOUR CARD IS A 9 OR GREATER"AGS 

BA71G IF LEMCAGHISSS THEH 946 

AGFL5S GOSUB 1gAaA 

ga7z2e INPUT" YOUR CARD IS A 3,16.J.0R Q "AGS 

BATZ1 GOSUE Laan 

GAT 25 IF LEM AGS 853 THEN Sa 

Aa73S0 IHFUT" YOUR CARD IS A 3 OF 14 "ARS 

BA735 IF LEH AR$I>S THEM FSG 

AAT4Q Yo Gg 

AAT4dIS GOTO 15aG 

AOFSG Y= 16 

gAarSS GOTO 1580 

AaSRG INPUT" YOUR CARD IS A J OR Q "Aas 

BASAS IF LEMC ARH IS >3 THEH a0 

AAGIB VY =11 

GBAS15 GOTO 15a8 

eAaaa Y= 12 

e285 GOTO 1580 

AAs40 GOSUB 1aAaa 

AASSO INPLIT" YOUR CARD IS AK OF A "AA 

@GS51 IF LEHC AGS 2253 THEN 875 

AGS52 We 13 

GAS55 GOTO 1588 

Bog?S Y = 14 

Bas76 GOTO 1546 

G1aea FOR I=1 To 1888 

G191@ HEXT I: RETURH 

A150 GOSUE 1Aaee 

GiSAS GOTO 15a +45 

BIS1G GOSUE 1608 

BlaL] PRIHT"” THO @F "; 

@1512 GoTO 17aA 

B1i515 GOSUR 1666 

@iSi6 PRIHT" THREE OF "; 

@i517 GOTO 1758G 

G1524 GCOSUB 1666 AlS56 PRIHT " JACK OF "5 
Bi521 PRINT’ FOUR OF "; Bids? GOTO 17Ae 

1522 GOTO 1780 1568 GOSUB 1608 
PI525 GOSUBR 1680 B1i561 PRINT " QUEEH OF "; 
G1526 PRINT" FIVE OF "; Alibe GOTO 1b 

i527 GOTO 17a0 A1S65 GOSUBR 1690 
A1530 GOSUB 14éa0 A166 PRIHT " KIHG OF "; 
@iS31 PRINT " SIM OF "3 Hise? GOTO 176A 

AL{S22 GOTO 179A HiSs7H GOSUB 1éaa 
M1535 GOSUB 160A ALSel PRINT" ACE OF "; 
BiS35 FRIHT" SEVEH OF "; ais72 GOTO 174A 

A1537 GOTO 1760 B1i6GG@ FPRIHT" YOUR CARD IS THE": 
G1548 COSUB 160A Bieat FETURH 

QiS41 FRIHT " EQGHT GF "; BLPee GOTO LPR +545 
ALS42 GOTO 17ae 81765 FRINT"OIAMOHDS"* 
A1545 GOSUE 1465 A17Os GOTO 18A0 

i546 FRIHT" HIHE OF "; AMivig PRINT"HEARTS"* 
AL547 GOTO 17aa ALPLl GoTo 1860 

1558 GOSUR 140K @1i715 PRINT"CLUES"*. 
@iSS51 FRIHT " TEH OF "; Gif le GOTO 1eaAag 

Gisse GOTO 17AK Hives PRINT'SPADES" 
AIS55 GOSUR {ean Wise EHD 
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MICROBASE 


This program allows you to use 
your computer as a super effi- 
cient filing system. You can file 
cards, edit them or search for a 
word or part of a word on any 
card. 

With Microbase you can ‘tailor 
make’ your own filing system as 
long as you use 10 headings or 
less on each card. You are not re- 
stricted by set headings. Each fil- 
ing system is stored along with 
its cards as a machine language 
file, so that you can load and use 
one filing system after the other. 

Microbase has a main menu 
and a card menu. The main menu 
allows you to — 


. Set up a new system. 
. Load system files. 

. Save system files. 

. Flick through files. 

. Search. 

. Insert new card. 

. Print entire system. 

. Retrieve stores files. 


The card menu will allow you 
to flick backwards (<a), flick for- 
wards (>s), stop at that card 
(pause), print out that card 
(hardcopy), alter that card (edit), 
return to the main menu (menu), 
remove that card (delete), or 
continue searching (cont). 

To set up your own filing sys- 
tem, you simply choose option | 
from the main menu and answer 
the questions. The main heading 
that you are asked for is the 
heading that will contain the 
card entry to be alphanumeri- 
cally sorted. 

Once the parameters for your 
system have been set, you will be 
returned to the main menu. From 
there, you should choose option 
6 to insert your first card into the 
system. You then need to enter 
your information under each 
heading. When that card is com- 
plete, you will be shown the card 
with the card menu at the top of 
the screen. You should now 
press M to return to the main 
menu and insert a new card. 
Each new card is inserted in its 
correct place according to the in- 
formation under heading 0 (the 
main heading). 

When you have finished insert- 
ing all your cards, you should 
flick through them, controlling 
the flicking with the keys A (left), 
S (right), and P (pause). (The A 
and S are a remnant from the 
MC-10 which has arrows on 
these keys, but there should be 


COnNA Va WN — 


@ CLS: CLEARZSAGA, 90: GOSUR5aG 

1 CLS:PRINT"MICROPASE FOR THE CO 
Co- BY &.POLLOCK JAN ’86 
=z GOTO1O 

3 FORSV=1TO332FORT=1TO300@0:NEXTT 
= CSAVE"MCBASE" =: PRINTSV:NEXTSV:EN 


1Q@ PRINT:PRINT" CHOOSE" PRINT 

15° DL=500:MC=100 

20 PRINT"1.SET UP NEW SYSTEM" 

30 PRINT"2.LOAD SYSTEM FILES" 

4Q@ PRINT"3. SAVE SYSTEM FILES" 

3@ PRINT"4.FLICK THROUGH FILES" 
60 PRINT"S. SEARCH" 

70 PRINT"&6. INSERT NEW CARD" 

8@ PRINT"7.PRINT ENTIRE SYSTEM" 
85 PRINT"S.RETRIEVE STORED FILES 


90 GOSUR48aa 

100 N=VAL (1%) 

110 ON N GOTO10Q0, 2000, 3000, 4000 
» 5000, 46000, 7000, 8000 

120 GoTo 

52Q@ DIMA$(1@,10@):DL=5@0:MC=100: 
RETURN 

1@@@ REM SET UP 

1005 CLS: CLEAR65Q@Q, 29000: GOSUBR5S@ 
a 

1010 CLS: INPUT"SYSTEM NAME” s;NM& 
1015 PRINT"MAIN HEADING “3 :GOSUB 
1500:A${0,0)=IKS 

1920 INPUT"HOW MANY OTHER HEADIN 
GS" 5NH 

103@ FORI=1TONH 

1040 PRINT" HEADING#" 315 :GOSUB15@ 
@:A$(1,0@)=IKS 

1050 NEXTI 

1060 GOTO1 

150@ IK#=""=PRINTCHRS(129)3 

151@ GOSUPR48ae 

1520 IFI$=CHR$(13) THENPRINTCHRS( 
8): RETURN 

1530 PRINTCHRS(8) 31%} CHRS(128) 3 
1540 IFI$=CHR#(8) THEN154@ 

1550 IK$=IK$+I$:GOTO1510 

1560 IFIK$=""THENI510 

1570 IK$=LEFT$( IK$,LEN(IK$)-1) 2G 
OTO151@ 

2000 REM CLOADM 

2010 CLS: CLEAR65@Q, 29800: GOSUB5@ 
Q 

2020 INPUT “FILENAME” 3NMS 

2038 PRINT"PRESS PLAY ON TAPE" 
204@ CLOADM NMS 

205@ SOUND1Q@Q@, 2 

2@60 CLS:PRINT"SORTING FILES" 
2062 FORT=1TODL:NEXTT 

2065 POKES5497,0 

20720 M=29000 

2075 M=M+1 

2080 M=H+1:IF PEEK (M)=@THENZ11@ 
2Q9@Q NMS=NME+CHRS( PEEK CM) ) 

2100 GOTOLZB38O0 

S410 M=M+12NH=PEEK(M) 

2115 M=M+1 

PLEQ FORTJ=QTOMC 

2130 FORI=@TONH 

214@ M=M+i: IFPEEK(M) =@THENZ145 
215@ A$(1,J)=AS(C1,J)+CHRS( PEEK (hi 
») 

2160 GOTOT149 

2165 IFPEEK(M+1)=Q@THENHC=d : POKES 
5494, 0:G0TOL 
2170 NEXTI 

F18Q NEXTJ 

3Q0@@ REM CSAVE 

3O@i@ CLS:PRINT" PLEASE WAIT" 

BO1S FORT=1TODL = NEXTT 


3@15 
3820 
3830 
3040 
3250 


3860: 


3270 
3080 
3398 
3188 


3110 


3115 
3117 
3118 


3120 
3140 
31508 
3140 
3170 
3180 
3190 
3210 
3215 

3278 
KEY" 

3286 
3290 
3360 
3318 
3320 
3330 
3999 
4200 
4010 
4020 


POKE65497,0 

M==9000 

M=M+1 

FORI=1TOLEN(NMS ) 
M=M+12L$=MIDS(NM$, 1,1) 
POKEM, ASC(LS) 

NEXTI 

GOSUBR3999 
M=M+1:2POKEM, NH 
GOSUR3999 

FORJ=QTOHC 
IFA#(@,J)=""THENS18@ 
FORT=QTONH 
IFA$(I,J)=""THENAS(I,J)=" " 
FORK=1TOLEN(A$(I,J)) 


M=M+1°LS=MIDS(AS(I,J),K,1) 
POKEM, ASC(LS$) 

NEXTK ?GOSUBR 3999 

NEXTI *«NEXTJ 
GOSUR3999 : GOSUR3999 
SOUND200, 3 

M=M+1 

POKE 65494, 0 

PRINT"PRESS RECORD AND ANY 


GOSUBR4800 

CSAVEM NMS, 29000,M, 17000 
SOUND 100, 2 

INPUT"SAVE AGAINCY/N)" 5SAS 
IFSAS="N" THENI 

GOTOS29@ 


M=M+1 2 POKEM, @: RETURN 

REM FLICK THROUGH 
J=1:DL=50@0:FL=1 
GOSUB450@0:FORT=1TODLINEXTT: 


GOSUP4038: GOTO40460 


4030 
4035 
4036 
4040 
4050 
4052 
4300 
4054 
4056 
4458 
4360 
4980 
4090 
4100 
4500 
4512 


4520 
4530 
454@ 
4558 
45460 


I$=INKEYS 

IF 1$="P" THENGOSUB48Q6 
IFI$="M" THEN] 

IFI$="S" THENFL=1 :-GOTO4080 
IF I$="A" THENFL=— 1! GOTO4@Q80 


IF T$="H" THENGOSUB46@@ = GOSUR 


IFI$="E" THEN4 700 

IFI$="D" THEN4S9@0 

RETURN 

REM 

J=J+FLiIFIsHO THENJ=1 

IF J<1THENJ=HC 

GOTO4420 

REM SCREEN DISPLAY 
CLS8:PRINTI64,NMS5" = CARD" 5J 


PRINT 

FORTI=@TONH 
PRINTISA$(I,0)5"2"5AS(1I,0) 
NEXTI 
PRINTQ@QO, "sais? SpAUSE 2 hARDCO 


PY¥:eDIT:mENU: dELETE!: cONTINUE" 


4572 
4400 
4618 
4620 
4530 
4640 


4710 


RETURN 

REM HARDCOPY 
PRINT#-2,NM$5" CARD" 5J 
PRINT#—-2,"" 

FORT=QTONH 
PRINT#H-2,IT5AS(T, 0) 5": "5ASCT 


NEXTI 

PRINT#-2, " ----------------- 
RETURN 
REM EDIT 
PRINT@Q, ""PRINT: PRINT 
PRINT@Q@, ""tINPUT"WHICH HEAD 


ING NUMBER" 51. 


4715 
4720 
4730 
4740 


IF I< 1 THEN4 710 
PRINTISAS(1,0) 5" 2" 5 
GOSUB1I5@02:AS(1,J)=IKS 
GOSUR450@0: GOSUB5120: GOTO0474 


59 


no confusion since all options 
are shown on the screen.) If you 
find a mistake on one of the 
cards, you can edit it by pressing 
E when the card is displayed. In 
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) 46080 
4800 I$=INKEYS:IFI$=""THEN 4800 6010 
4805 SOUND1,1 6020 
4810 RETURN 6040 
4900 REM DELETE 6050 
49@5 PRINT@@, ""=sPRINT=PRINT 6062 


REM NEW CARD 

CLS 

PRINT@64,NM$: PRINT 
PRINTOSAS(Q,@) 5"2"5 
GOSUB150@02:NCS$=IKS 
FORJ=QTOHC: PRINTAO, J+1: PRIN 


WITHOUT A 
NAME 


For the TRS80 — all you'll need 


to know is given in the program. 


A. Sumner 
Aberdeen NSW 


new 


REM * COMMODREWILL NEED ANOTHER LINE 
REM * 246 GOTO 2Z0 

REM 29 HE EH IEEE EE EH EEE EEE 

10 RM=1 

30 SW=O0:RP=0:GL=0: BH=Os BN=O2 KES0:BX=0 


One ibs e 


100 ON RM GOTO 1000, 1020, 1050, 1280, 1080, 1100, 


200 INFUTAS 
Z1O Lie 

220 LisLi+1:1F L1I=LEN(A$) THEN AS=AS+” ” 
250 HS=MIDS (AS,L1, 1) 

240 IFER$="""THENL1=L1-12A1S=LEFTS(AS,L1) ELSE 
250 AZ$=RIGHTS (AS, LEN (AS) -—L1-1) 

300 IFA1$="NORTH"” THENZ000 

310 IFA1$="SOUTH" THEN2100 

S20 IFA1I$="EAST" THENZZ200 

350 IFA1$="WEST" THENZ300 

340 IFAI$="GET" THEN 2400 

350 IFA1S="TOSS" THEN 2500 

360 IFA1$="LOOK" THENZ600 

370 IFA1$="CLIMB"THEN 2700 

380 IFA1S="GEAR" THENZ3800 

3390 IFA1$="ROW" THENZ900 

400 IFA1$="OPEN" THENSOOO 

4i0 IFA1$="DROF" THEN3S100 

420 PRINT “I DON’T UNDERSTAND. ":GOTO100 


edit mode, you just need to enter 4910 PRINT@@,"DO YOU WANT DELETE TH140, 3 
the correct information for the THIS CARDC(Y/N)" 6065 IFNC$=A$(0, J) THENPRINT"ALRE 
desired heading i OE ee 
="y" 6070 IFNC$<A$(Q,J+1) THEN6200 
The next stage is to save the 4940 GOSUB4560:GOTO48a0 6075 IFA$(O,J)=""THENS 100 
system and file cards to tape. 4950 FORMV=J+1TOHC O80 NEXTS 
this is done from the main menu 4960 FORI=OTONH 6090 HC=J 
and the file is CSAVED under the 4970 ASC I,MV—-1)=AS(1,MV) 6180 A%$(2,J)=NCS 
system name. 4980 NEXTI:NEXTMV 611@ FORI=1TONH 
Once this is done, you can ie FORI=Q@TONH!A$(1I,HC)="" 3NEXT 6120 PRINTISAS(1,Q)5"2"5 
ili 6138 GOSUB1500:A$(1,J)=IK$ 
oad and undate the fling SiS: «bog Hocte~t sgoro4sae cite wears 
5@0Q@ REM SEARCH 615@ GOSUB4500:GOSUB5 120 
word, phrase or part of a word 5@@2 CLS:PRINT:PRINTNM$ 6160 GOTO615 | 
within the filing system is simple 5004 FORI=QTONH!:PRINTI$A$(1I,@)=N 6208 FORMV=HC TOJ+1 STEP-1 
and fast. You can ask the com- EXTI 6218 FORI=Q@TONH 
puter to search through all en- 3@06 PRINTNH+15"ENTIRE SYSTEM" 6220 AS(I,MV+1)=AS(1,MV) 
tries for an individual heading or 5@1@ PRINT@Q, "WHICH HEADING NUMB 6230 NEXTISNEXTMYV 
through the entire system. Once ER" 5#INPUTI 6240 JaJ+1tHC=HCt+1 
bie di 5215 II=1 6250 GOTO6100 
spas c Ser pasty 5@29 INPUT"SEARCH FOR WHAT" 3SH¢ 7000 REM SYSTEM PRINT 
S025 IFI=NH+i THENS22@@ 7810 FORJ=1TOHC 
to continue for other cards with 5Q27 GOSUP5O30:G0TO! 7820 GOSUB4600 
the same string in them. 5030 FORJ=1TOHC: PRINT&SO, J 7030 NEXTJ 
If you have to BREAK and 5035 I=I1! 7040 GOTO1 
SKIPF to find a spot on the tape, 5040 IFLEN(SH$)>LEN(A$(1,J)) THEN 8@0@ REM RETRIEVE — Sea 
_ then you should re-enter the pro- saeo 8210 CLS? CLEARG5O@, 29000: GOSUESA 
gram with GOTO | <ENTER>. If phe FORK=1TOLEN(A$(I, J) )-LEN(SH a een 
you RUN the program then the 5Q6Q IFMID$(A$(1,J),KyLEN(SH$) )= | 
files will be cleared. If you forget SH$ THENGOSUBS5 102 
and RUN instead of GOTO 1, 5070 NEXTK 
then all is not lost. You may be 5@8@ NEXTJ 
able to retrieve the files using 3070 RETURN 
OPTION 8 from the main menu. Se eee 
Note that triple speed pokes are es Pee ee ete 
ee 13Q@ RETURN 
found in Lines 2065, 2165, 3015 S200 FORI=1TONH 
and 3215. 5210 GOSUB5O30 
Grahame Pollock 5228 NEXTI 
Minto NSW 2288) ‘GUTe} 
ADVENTURE REM *#%#% ADVENTURE WITH NO NAME #4 
REM *FOR COMMODORE LINE240 MUST READ# 
REM *« IFRS=" "THENL1=L1—-12A1S=LEFTS(AS,L1) 2GUTO 250 


1150, 1160, 1180, 1200, 12350, 1250 


220 


1000 PRINT "YOU ARE AT THE ENTRANCE OF THE CAVE" 


1010 FRINT “CAVE GOES EAST." 2: GOTOZ00 


1020 PRINT "YOU ARE INSIDE THE CAVE. THERE IS A LIGHT" 
1030 FRINT "IN THE WEST. A PASSAGE LEADS SUUTH AND A” 


1040 PRINT "DOOR TO THE EAST. ":GOTOZ00 


60 


1050 
1060 


FRINT "YOU ARE IN A DESERTED CAVERN. THERE ARE” 
FRINT “BOATS HERE AND PASSAGES HEAD NORTH AND EAST." 
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1070 GOTO 200 

1080 PRINT "YOU ARE IN A ROOM THERE IS A RIVER RUNNING" 
1090 FRINT “THROUGH IT AND A PASSAGE TO THE EAST. ":GOTO 200 
1100 PRINT "YOU ARE IN A ROOM FULL OF BATS. THERE IS A” 

1110 PRINT "RIVER FLOWING THROUGH IT, A PASSAGE TO THE SOUTH" 
1120 FRINT “AND A LARGE BUX IN THE CORNER. "!GOTOZ00 

1130 PRINT “YOU ARE AT THE CROSSROADS, THERE IS A SWORD IN THE” 
1140 PRINT "MIDDLE OF THE ROOM. PASSAGES LEAD IN ALL” 

1150 PRINT "DIRECTIONS. ":GOTOZO0O 

1160 FRINT "YOU ARE IN A BOAT STORAGE AREA. THERE ARE” 

1170 PRINT “PASSAGES NORTH, EAST AND WEST. ":GOTO200 

1180 FRINT “YOU ARE IN THE DRAGON’S DEN. FASSAGES” 

1190 PRINT "IN ALL DIRECTIONS. ":GOTO200 

1200 FRINT “YOU ARE IN A STORERUOM. PASSAGES LEAD EAST" 

1210 PRINT "AND WEST. THERE IS A CLIFF TO THE SOUTH. “ 

1220 GOTO 200 

1250 FRINT "YOU ARE AT THE FACE OF THE CLIFF. A BROKEN" 

1240 FPRINT "LADDER GOES UP. ":GOTO200 

1250 PRINT "YOU ARE IN THE THRONE RUOM. A BAG OF GULD IS" 
1260 FRINT “IN THE MIDDLE OF THE ROOM AND A WAY LEADS" 

1270 PRINT "SOUTH. "sGOTOZ00 

1280 FRINT "YOU ARE. IN THE GUAKD ROOM. THERE IS A PILE OF” 
1290 FRINT "ROFE IN THE CORNER. A DOUR TO THE WEST AND A” 
1300 FRINT "FASSAGE EAST. "s:GOTOZ00 

1500 PRINT "YOU CANNOT GO THAT WAY. ":GOTO100 

ZOOO IF RM = THEN RM=2'GUTO100 

“O01 IF &M THEN RM=7:GOTO100 

2oO2 IF RM = THEN RM=108GOTO100 

2903 IF RM = THEN RM=6:GOTO100 

2004 GOTO 150 

2100 IF RM = 
2101 IF RM = 


ti 


Oyo ot 


) 
THEN RM=35:2:GUTO100. 
THEN RM=7:GOTO100 
ZAO2 IF RM = THEN RM=8:GUTO100 
2103 IF RM = 9 THEN RM=8:GOTO100 
“2104 IF RM = 12 THEN RM=11:2:G0T0100 
2105 GOTO 1500 
2200 If RM=aTHENRM=7 'GOTO100 
2201 IF RM=7 THEN 2250 
22027 IF RM=& THEN 2250 
22703 IF RM = 9 THEN RM=11:GOTO100 
2204 IF RM = 10 THEN RM=12:G0TO100 
2205 IF RM = THEN RM=5:G60TO0100 
2206 IF THEN RM=8: GUTO100 
2207 ITF RM = THEN RM=2:G0TO100 
2210 GOTO 1500 
2250 IF SW=OTHEN FRINT "A DRAGON THROWS YOU OUT!!! !!''"sGOTOLOO 
2260 RM=9:FRINT "THE DRAGON RUNS AWAY WHEN IT SEES YOUR SWORD. ":GOTO1O 
23500 IF RM=2ZTHEN RM=12GUTO100 
2310 IF RM=7 THEN RM=4:GOTO100 
2320 IF RM=8 THEN RM=S!:G60T0100 
235350 IF RM=9 THEN RM=6:GOTO100 
2340 IF RM=10 THEN RM=9:GO0TO100 
23550 GOTO 1500 
2400 IF A2$="BUAT" AND RM=3 THEN BH=1:GO0TO 2480 
2405 IF A2s="ROFE" AND RM=4 THEN RF=1:GOTO 2480 
2410 IF AZS="BOAT”" AND RM=8 THEN BN=1:GUTO 2480 
2415 IF Qzs="KEY" AND RM=G6AND BX=1 THEN KE=1:GOTO 2480 
2420 IF AZ$="SWORD"” AND RM=7 THEN SW=1:GUTO 2480 
2425 IF Azé="GOLD" AND RM=12 THEN GL=1:GOTO 2480 
2450 PRINT "THERE IS NO "AZS " HERE. "1GO0TO100 
2480 PRINT "OK....1 HAVE IT NOW. ":GOTO1L00 
2500 IF A2$0 "ROPE" OR RP=O THEN PRINT “I CAN’ T THROW ANYTHING" :GUTUI00 © | 
2510 IF RM=11 THEN F RINT "THE ROPE CATCHES ON THE TUP OF THE CLIFF. "sCL=1:GOTO100 
2520 PRINT "YOU THROW THE RUF E BUT LOSE IT. "sRP=0:GOTO100 
2600 IF AZS$="BOX"AND RM = & THEN BX=13FRINT"THERE IS A KEY IN IF. ":GOTO100 
2610 IF AZ$="BOAT"AND RM =3 THEN FRINT “IT HAS HOLES IN IT" sGUTO100 
2620 FRINT "I SEE NOTHING SPECIAL" :GOTO100 
2700 IF RM <>) 11 THEN FRINT "THERE IS NUTHING TO CLIMB" sGUTO100 
2710 IF AZS="LADDER" THEN Sooo 
2720 JF AZ$="ROFE" THEN IF CL=1 THEN PRINT "OK... "2kM=10:GOTO100 ELSk& 
PRINT "I CAN’? T CLIMB YET" sGOTO100 
27350 FRINT “WHAT SHOULD I CLIMB?" :GOTO100 
2800 PRINT "YOU HAVE" 


NON 


wa 

= 

it 
— Oo 


~805 IF RR=t THEN PRINT " ROFE" 

2810 IF BH=1 OK BN =1 THEN PRINT " BOAT" 
AIS GF Sweet THEM PRINT " SWORD" 

S2G20 IF WKE=1 THEN PRINT " KEY" 

2425 IF Gh=1 THEN PRINT " GOLD” 


2830 GOTOLOO 

2900 IF RM= 6&6 THEN PRINT "THE BUAT HAS FLOATED AWAY. "tGOTU100 

2910 IF RM (© S THEN PRINT "DON’T BE SILLY. THERE’S NO WATER HERE. ":GOT0100 
2920 IF BN=1THEN PRINT "OK... I ROW ALONG THE RIVER" 3 BN=0: KM=6:GUTO100 

2950 IF BH =1 THEN PRINT “OK... I RUW ALONG, THE BUAT HAS A HOLE AND SINKS": GOUTOSO00 
2940 PRINT "I HAVE NUTHING TO ROW WITH. "'GOTO 100 

3000 IF RM (> 4& THEN F RINT "THERE’S NOTHING TO OPEN. ":GOTO100 

BOLO IF KE=0 THEN FRINT "I DON’ T HAVE THE KEY. "!GOTO100 

3OZ0 FRINT "OK... THE DOUR IS OFEN. "?RM=Zz2:GOTOL00O 

3100 IF Qz¢="EOAT" THEN BH=028BN=0:GOTO100- 

3110 IF AZS="KEY" THEN KE=O2GOTO 100 

S1i2zOo IF Azt="GWORD" THEN SW=O:GOTO100 

3130 IF Azt="RORE" THEN REF=O:GOTO 100 
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3140 IF AZ$="GOLD"THEN GL=0:G0TO100 
3150 FRINT " WHAT SHOULD I DROP?" :GOTO100 
5000 PRINT "TOO BAD'S FRINTIERINT 

S010 FRINT "YOU HAVE DIED !trie 

> RUN 

YOU ARE AT THE ENTRANCE OF THE CAVE 

CAVE GOES EAST. 

2EAST 

YOU ARE INSIDE THE CAVE. THERE IS A LIGHT 
IN THE WEST. A PASSAGE LEADS SOUTH AND A 
DOOR TO THE EAST. 

SOUTH 

YOU ARE IN A DESERTED CAVEKN. THERE AKE 
BOATS HERE AND FASSAGES HEAD NORTH AND EAST. 
2GET BOAT 

OK....1 HAVE IT NOW. } | 

YOU ARE IN A DESERTED CAVERN. THERE ARE 
BOATS. HERE AND FASSAGES HEAD NURTH AND EAST. 
?ROW BOAT 

DON’T BE SILLY. THERE’S NO WATER HERE. 

YOU ARE IN A DESERTED CAVERN. THERE ARE 
BOATS HERE AND FASSAGES HEAD NURTH AND EAST. 


MATHS TEST 19 FOR T=1 TO 16 232 OATA SS, 32,92, 32.51.52. 56. 52 
20 CLS: FPRINMT@6E6. "SAVEIMG MATHS T ,92,92,81,92,92,92,56,92,92,92,8 
MATCH EST MATCH #"5T B.79. 73.79.84. 32.56.92, 92,92, 31 
Maths Test Match is a maths drill yi Save Ue 2, ee 268 PO sESS495.9 Z 
program made into a game of PPL BABB CE PRINT Reith one erQ FOR T=1 70 ie 
#"5 Ti "COMPLETED" :-FORD=1 TO Soe: 238 FOR G=1 TO 2s 
cricket. To make some runs you i. = . 
HEAD. T 238 READ DA: CAS¢ I :=CA#. I O+CHRE* © 
have to know the right answers, = CLS: CLEARSAG +108 > 
ae ena pp torren 68 DIM CAS 12) 0 HEAT 
And here's a tip for the CoCo 74 “Print first screen 310 HWEXT I 
7 a SH PRIMT@S6. "welcome to the game 320 ‘print the second screen 
users: you can use “Exec 44539 Ae ee eee S30) CLEG:PELHT@ES. CAE 19: 
in place of “AS = InkeyS: if AS=” aaane eee a eee Salita os Spi ac eles a carn al 
ah ; ads 30 PRINT@LSS. "sou will need skil 40 PRIHTEGS, CAE 2; 
T en”. As you can see it is a Ll anc shee"; 359 PRINT@S7. CAS. 3; 
much shorter line, this helps to 1@@ PRIHT@S@R. "to win ab; 360 PRIMTRLES, CAC 43; 
SAVE OU TREMOly: 119 ’ data for the word maths S37Q PRINT@1LS3, CASS 3; 
J. Sheen 128 DATA 98.75,92. 77.89.92, 92,77 ASG PRINT@Z25,. CAS 6) 
Morwell Vic. 688,76,.92, 92,998.59, 30,89,958,92,38 390 PRIHT@257. CASS 7); 
6,92,.392,92,51,926.77,938,58,89,78 400 PRINTRSES9,CRS0 9 9; 
138 DATA 86.868. 73.84,81.32. 7% 5.54 414 PRIHTBSES. “cooPaerithn deff sh 
692,86. 78,92,592.392.86,92.92. 92,6 een LSA"; | 
6,392.32, 92.51.92.92,55,79,92.92 420 PRIAT@SSS, CAE Bi PRIHTESSS, 
146 DATA S6,.92.92,92,81,392.82,83 CAS 18>: 
698,89,535.92,92,92,86,92,92,92.9 34 PRIHTE417,CASC 1193; :-PRIHT#449 
0,88,88,89.,89,52,.32,92,88,35,92 ,CABL 123: 
158 DATA $6,92.92,92,81,92,386,92 440 FPOKEG 434,08 
992,92,81,92,.92,92,36,392,92.92.8 459 FOR T=1 Th Saga: HEAT 
6,92,92.92,91,92. 88,73, 79, 79.84 460 ‘print third screen 
1640 ‘dats for the word test $78 CLSS 
178 DATA 32.92,92,86,39,90,388,.985 $56 PRIHT@2e." “OL RARE THE BAT 
292,368,.58,398,.88,.98,92,77,58,95,8 SMA IM THIS GAME OF CRICKET. 
S,.78,92,88,89,90,93,98.92,92,592 THE COMPUTER WILL BOWL SUMS ¢B 
166 DATA 32.92,92,32.32,.86, 32.392 ALLS) AT “OU, AS OU THIME ABOU 
132,86,92,96,92,92. 92.92.85, 738,9 T THE ANSWER YOU CAM SEE ‘Cur 
2.92,92,592,92,86.92, 92.92.92. 32 BUMS RUMMIMG AWAY FROM ‘OU. TH 
1S8@ DATA 32,392, 32,392,92,36,92, 32 E SUMS WILL COME AT 3 DIFFERE 
,32,90,88,068,94,.92, 92, 92.92,.86.5 HT SPEEDS, FAST, 3 
we S92.92,92,92,96,92,92,592,92, 32 499 PRINT'MEDIUM AHO SLO. 
COG DATA 32.392. 392,92, 32.86. 92.92 THE IPER IS TO AMSWER AS FAS 
292,687,739, 79,79579.92.30,79.79,7 7 AS COL CAR. BUT GET CHE WRthH 
S.84,592,92.92.86. 32, 92.392, 92,92 ‘5 AMD Ol! COULD BE mutT." 
2ig@o¢ date for the word mater S98 PRINT" FROM 1 TO if PLAYERS 
228 DATA 38,73: 92.77;389.392,92.77 CAM PLAY AT Fill’? TIME. sae." 
1:98,76,92,392,9393,93.,98,33,985,92.7 Sia GOSUB ize | 
7:98,58,596.78,92,96,92,32,92,81 Zee “Geb skill lawel 
238 DATA 86.568. 79,594.81, 92. 77.94 SSA Clas 
$32,900.78, 92. 92.92,56,32,92.92.3 S4Q PRIMNT@S6," «= ENTER SKILL LE 
6£,92.92,92,96,92,586,92,92,92,81 WEL : 
24@ DATA 86,.92,92.92,81,92-82.33 t ESSIEST 
(99,93 ,595.92,92,92,86,92,92,92.,8 e HARDEST." 
6,592.96, 92, 77,392,90,89,85,.99,89 
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A PRIHTESS4, " 
"7SL 
S6Q HOet SLAKS 3: Che SLELS 
=r DIM Blas 
nd Maths test match 
by Jeff sheen 3710-8 


S30 OSC 1 9="L BW": a ee 
1ME¢ Ro="CALIGHT" GEC 4 =e "STUMPED" 
S68 ‘enter names of Flasers 
Bi CLs 
620 PRINT@33. "MATHS TEST MATCH.” 
q 
£306 FOR Fat TO 1a 
£40 PRINHT@PE6+¢ S2KPO,""s : INPUT" E 
HTEF FLAYER’S WAMES. "i FS¢r 2 
BSA HEXT 
S58 Et 
670 ‘main screen showins tearm 
Players there runs 
A358 Cus 
690 PRIMT@34. "THE BATTING TEAM I 
78 Bem ait, 
716 FOR T=1 TO 1@ 
72a IF BAR=4@ THEN 742 
736 BACB b=¢ Bo BOY BRA OKIE 
740 PRIHTRS63S+0 3S2kT ODUSING' 
% we % j%$S“SH HHLR' GPEC TO 
jHEC T3358 TOS BARC TO 
7380 WEXT T 
F68 PRIHTE417.USING"TERM TOTAL R 
tS Hee Re TLD 
Fra PRIHTe45S,P¢°680:" IS BATTING 
HIDbl" j 
YSQ IF INKEYS=""THEH 7Sa 
Foe ° 
Son - 
Bia CLSs 
S20 PRINT@LS. "BATSMAMW IS "3 Pecn2 


{ 

830 GA=BR+) 

846 "eet Pace and Pick sun 

ke Seo 45: TF SS THEM FRIHTES 
om r "SLO tt : 

ag IF S= =4, THEN S32 

S7Q IF Get THEN FPRIHT@S3. "MEDIUM 
9 { 

SeeQ IF S=i THEM PRIHT#SS, "FAST"; 
B94 SUSRANDe 45: Mee od HCO: Ye RHO? Hi 
» , 
3Q9 OM SU GOTO See, 34a, 560, 398 
S18 "Prink sum and 2et answer 
BSH Hee +RHO CH: f= +R CHO: PRI 
TRS A RI et Ap des dey 

338 GOTO 1018 

940 Mee+RhDd CHO: f= FRAO CHD 

F308) TF 4 THEM PRIWTBEG. By 
"33 Aes '7 


62 IF ‘*=>% THEM FRINTeSS, ft 


FA GOTO 1iaia 

BO KMS K ANS PRIMTESO. | 
=z"; :GOTQ teaia 
S20 PRINTERS. RUA YS AMAR yO 
TO 1016 
1802 
19190 AeO:' FOR R=6 TO 1 STEP-1 
1928 PRINTESS+A. Rs "RUM? SoS": 
1038 FOR Tl#il TO ¢C7B#S 5+188 
L24@ AS=IMKETS: IF ASCS""THEM Lie 
3) 
1236 WHEAT TI 
1969 A=A+69 HEXT RF 


ht ina a dl 


t 4 1 THF! ITE e ry 


1870 PRIHTC455., "SORRY ANSWER IS" 

pAMS 

1888 ORNS 3) 

1890 IF 0=8 THEN FPRIHT@494."HO R 

WHS, "GsFGRV=1 TO S@6:HEXT VWeGOTO 
£58 

1169 IF O<23% THEM FRIMT@434, "OUT 
"SOS 093 (HC Bpaedee >: B=6+1:- BbA=6 
‘FORV=1 TO S82:'NEKTY: GOTO 68a 

js ae ad 

1128 *LOOK FOR AHSWER 

1i3a BsBbS+ARe Age" " 

1148 IF AN>S AWD LEMCB#><2 THEN 
18408 

1138 IF AH >S3 RHD LEMS 6 9<3 THEM 
1446 | 

1168 IF AM?999 AWD LEMC BS 5<4 THE 

tH 1a4e : 

L178 IF VALCBS°=AN THEM Bo BO=Br Bb 
2#R'BO119=BC1194+R:'GOTO 669 

1188 IF VALC ES" >A THEM 1873 
1190 “EHO 

1200 ‘wait for any key Pressed 

1218 PRINT@448, STRINGS. 16-—H, 264 > 

iSTRIMGE SEM, 2AP 3; STRINGS. 16—-He 

BA: 

1220 It=IbKEYs 

1238 IF le<>""THEM 126a 

1240 Hen+Thi: IF Meise THEM IHC=—-] 
ELSE IF H=8 THEM IMt=+41 

12358 GOTO 1214 

12660 RETURY 
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RKKKX BAN OD 7, xkekkk 


‘ 
40 '' COPYRIGHT (C) MARCH 1986 BY A. FERRARO 


110 CLS 
120 PRINT @ 149, "BAN ODI T" 

130 PRINT @ 202, STRINGS(35,"=") 

140 PRINT @ 331, "COPYRIGHT (C) 1985 BY A. FERRARO" 

150 PRINT @ 462, "SYDNEY, NEW SOUTH WALES" 

160 PRINT @ 597, "AUSTRALIA" 

170 PRINT @ 714, STRINGS(35,"=") 

180 FOR Z = 1 TO 3500: NEXT Z 

190 GOSUB 4000: CLS 

200 FOR 21 = 10 TO 85 

210 IF 21 < 25 THEN 230 

220 SET(2Z1,10): SET(Z1,16): SET(Z1,22): SEL(Z1,28): SET(Z1,34) 

230 IF Zl > 34 THEN 250 

BANDIT 240 SET(25,2Z1): SET(85,2Z1): IF Zl < 29 THEN SET(65,21): SET(45,21) 


Bandit is a computer simulation 250 NEXT 21 ; ; 
of the one-arm bandits found in 270 PRINT @ 428, "<=="; 


most clubs — and it’s just as 280 PRINT @ 393, "==>"; 
hard to beat. The main difference 300 DATA CHERRY, CHERRY, CHERRY, APPLE 


, 
being that you get to keep your 310 DATA LEMON , LEMON , LEMON , =BAR= , 
320 DATA PLUM , PLUM , PLUM ORANGE, ORANGE, ORANGE 
’ 
, 


APPLE , APPLE 
=BAR= , =BAR= 


f 
shirt. ’ 
A. Ferraro 330 DATA CHERRY, CHERRY, LEMON , LEMON LEMON , PLUM 
St Marvs NSW 340 DATA ORANGE, ORANGE, =BAR= , APPLE APPLE , APPLE 
ry 350 FOR 22 = 1 TO 10 


360 READ B1S(Z2), B2$(Z22), B3$(22) 
370 NEXT Z2 
500 RANDOM 


510) t= RNDCEO) 

520 J = RND(10) 

530 K = RND(10) 

540 Il = I ; 

S002 = TL ae de ee PS 0 TREN cde 

560 I3 = I2 + 1: IF [2 = 10 THEN 13 = 1 

DIDO DL. = al 

580-32 =] Jict Le IF fl = 10. THEN J2°= 1 

590 J3 = J2 + 1: IF J2 = 10 THEN J3 = 1 

600 Ki = K 

610 KZ = Ki + 1: IF Kl = 10 THEN K2 = 1 

620 K3 = K2 + 1: IF K2 = 10 THEN K3 = 1 

S30. PRINT -@ 275. BSC) 

640 PRINT @ 281, BIS(J1); 

650 PRINT @ 291, B1S(K1); 

660 PRINT @ 399, B2S(1I2);: AS = B2s(I2) 

670 PRINT @ 409, B2S(J2);: BS = B2$(J2) 

680 PRINT @ 419, B2S(K2);: CS = B2S$(K2) 

690 PRINT @ 527, B3$(13); 

700 PRINT @ 537, B3S(J3); 

710 PRINT @ 547, B3S(K3); 

720 IF BS <> CS THEN 800 

730 IF AS = "=BAR= " AND BS = AS GOSUB 2000: GOTO 1000 
740 IF AS = "PLUM " AND BS = AS GOSUB 2200: GOTO 1000 
750 IF AS = "ORANGE" AND BS = AS GOSUB 2400: GOTO 1000 
760 IF AS = "APPLE “" AND BS = A$ GOSUB 2400: GOTO 1000 
770 IF AS = "LEMON " AND BS = AS GOSUB 2400: GOTO 1000 
780 IF AS = "CHERRY" AND BS = AS GOSUB 2400: GOTO 1000 
800 IF AS = "“=BAR= " AND BS = AS GOSUB 2500: GOTO 1000 
610 IF AS = "CHERRY" AND BS = AS GOSUB 2500: GOTO 1000 
820 IF AS = "CHERRY" GOSUB 2600: GOTO 1000 

830 L=1 

L000 “CT = CT = We = de PRINT “C835 “STATUS =. "7 CTs" COLNS” 


1010 PRINT @ 661, "HIT SPACEBAR"; 
1020 KY$ = INKEYS 

1030 FOR Z4 = 140 TO 170 

1050 POKE 15360 + 24, 140 

1070 POKE 15360 + 24, 128 

1080 NEXT 24 

1090 FOR 24 = 170 TO 140 STEP -1l 
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1110 POKE 15360 + 24, 140 

1130 POKE 15360 + 24, 128 

1140 NEXT 24 

1150 IF KYS = "" THEN 1020 

1160 IF KYS <> " " THEN 1020 

1170 PRINT @ 661," ws 

1180 C= 0: WS 4 
1190 GOTO 500 | 
2000 PRINT @ 661, "J ACK PO T"; 

2010 W = 100 

2020 GOSUB 3800 

2030 GOSUB 3900 

2040 RETURN 

2200 W = 25 

2210 GOSUB 3900 

2220 RETURN 

2400 W = 10 

2410 GOSUB 3900 

2420 RETURN 

2500 W= 5 

2510 GOSUB 3900 

2520 RETURN 

2600 W = 2 

2610 GOSUB 3900 

2620 RETURN 

3800 FOR 29 = 1 TO 1500: NEXT 29 

3810 RETURN 

3900 PRINT @ 658,"PAYMENT =";W;"COINS"; 

3910 GOSUB 38060 

3920 PRINT @ 658," "4 

3930 RETURN 

4006 CLS 

4010 PRINT @ 82, “INFORMATION SHEET" 

4020 PRINT @ 146, STRINGS(17,"=") 

4040 PRINT "PAYMENTS ARE MADE ON CENTRE ROW, LEFT TO RIGHT ONLY." 
4050 PRINT 

4060 PRINT "=BAR= =BAR= SBAR= 4.464 shed wusdaaccsne LOO CONS" 
4070 PRINT "PLUM PLUM PLUM LOL PIREN DRE RE eee Lee 
4080 PRINT "ORANGE ORANGE ORANGE ......eeecceeeeee ee lO COINS" 
4090 PRINT "APPLE APPLE APPLE £4 <div Geadeews'eh asl’ CORRS" 
4100 PRINT "LEMON LEMON LEMON .esevece es cb eaxae ea LO’ COINS" 
4110 PRINT "CHERRY CHERRY CHERRY ....cecec eee eee eee e lO COINS" 
4120 PRINZ "=BAR= =BAR= je th Cee KW aes GSA a ee eee Oe 
4130 PRINT “CHERRY CHERRY <..cccce ce eeeseavueetesceeavaed COINS" 
TIA -PRIGT TCHERRY 266 Se oN EGRESS SS EKO Ke eae eGR Oe COTHR* 
4150 PRINT @ 971, "<HIT ANY KEY TO CONTINUED"; 

4150 22S = INKEYS: IF 22S = "" THEN 4160 


4170 


RE'TURN 
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VIC 20 iii 


BURNING 1 REM (C) ERIC YOUNG, 
= REM FOR UNEXFPANDED VIC-20 
= REM (C) LEO WANEERSOFT MCMLXXX¥V 


RUBBER 5 FRINTCHRE (8) : GOSUBBOOO: FOKE246879 ,8 


For the unexpanded Vic 20 — all 10 PRINT Ss@RBURNIN’ RUBBER" 
> j ions vou'll need are 20 PRINT SimmEY ERIC J. YOUNG" 
cele wad fe 20 PRINT" sBa(C) LEQ WANE ERSOFT" 
In the listing. 80 FRINT" eleleBFLEASE LOAD MAIN GAME" 
J. Fang 90 PRINT" ®BRY FRESSING FLAY ON THE CASSETTE UNI Tm" 


1 : 100 FORKE198,1:FORE671,171:END 
Forest Hill Vic. BO0O FORESS, 28: FORKES6,28:FRINT"SBETTING UF GRAPHICS" :PRINT' ®BFLEASE WAIT" 
BOZO FORI=71687T07679: FOFET ,FEER (1+25600) : NEXT: I=7168 
BOZO READA: IFA=-—1THENRETURN 
BO40 FOKEI,As [l=1+1:GOTO8O030 
BOSO DATATSS ,O,255,0,255,0,255,0 
BOSS DATAL7O,170,1790, 1790 179, 170,170,170 
BO60 DATAL,3,7,15,41, 62,42 27,255 
B965 DATAI2B, 192,224, 240,248, 252,254,255 
BO70 DATAI9IB, 254,214,16,16,84,124, 84. 
BO75 DATAB4,124,84, 16,16,214,254, 198 
BOBO DATA7, 271 66,254, 66,251,7,0 
BOBS DATASS4 ,231,66,127,66,2571,22 ~O 
BOO DATAL4,14,119,40,240,22,80,80 
8095 DATAO,9,56,124,278,198,198,254 
BiL00 DATAZO4 204 ,51,51,204, 204, 51,51 
8105 DATAS6,92,1908,124,56,16,146,56 
8110 DATALZSS,255,40,74,74,74, 34,255,255, 255,192,210,208,211, aosaaee 
8115 DATA2ZSS,136,186,196,186,176,255,255,255,168,171,152,171,168, 255,255 
Bi20 DATASZSS,126,187.15°6,1909,190,126,255,255,15 "6 5 186 ,1238,224,254, 12 Oy Soe 
8125 DATA7,8, 16,24,80, 128,255,255, Zoigleirg Lah GL yak yOu gs eel 
BitO DATAD,O,9O,O,102,102,1326,1276 
8140 DATA~1 


READY. 


4 GOSUBB000: FOKEZ6879,255 

10 FRINT'MaNEED INSTRUCTIONS?" 
20 GETZ#:1IFZ#=""THEN 20 

SO IF Z#="N"THENSO 

40 GOSUB4000 

SO PRINT" II: CLR 

60 X=O2B=6:H=7725: 2274: VeS6B78: S3246876: S4=26877: FOKES6B69, 255 
100 PRINTS: PRINT" slices POP RRO RBE 
110 PRINT’ SHOW FAST (1-9) 7m" 

111 GETAE: A=VAL. (A#) > TFA TOTHENI LI 
112 FPRINT"cY 

114 GOSUBIGOZOSFRINT "Salem: Ode TI 
115 GOSUBS 100 

120 FORFE*Gé6é875,150:GRTZ#: TP Zt=2""THENT SS 
121 Z=ASC(Z#) 

125 X=1 

180 IF Z=74THENB=6: GOTOL40 

125 GOTOL90 

140 H=H+1 

145 Y=Y+1 

150 LFFEEK (H) =32THENX=0 

155 Y=V¥+1 

160 PRINT" ME Sa"; 

165 Y=Y+1 

170 IF X=1THENZO00 

175 Y=Y+1 

iso GOTOL1S 

190 IFZ=7BTHENB=2:GOTOZ00 

195 GOTORSO 

200 H=H+22 

210 IFPEEK (H) =32THENX=0 

220 PRINTS) MferD2" ; 

230 IFX=1THENZO00 

240 GOTO115 

250 IFZ=72THENB=4:GOTO260 

255 GOTO 210 

260 H=H~1 

270 IFFEEK (H) =22THENX=0 

280 PRINT MM EES"; 

290 LFX=1THENZOOO 

300 GOTO11S 

310 LFZ=85THENB=8: GOTOZ20 

215 GOTOZ70 

220 H=H-22 

330 [FREER (H) =32THENX#0 

S40 FRINT" SEDER: 

350 IFX=1THENZO00 

360 GOTOLIS 

370 GOTOSO0O 

1020 PRINT" shG@G@GGGGGGGGEEeaee@@ar"s 
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VIC 20 PROGRAMS 


1040 PRINT" LILIMT The mA": 
1050 PRINT SHSG5TART@m TI ISNOSE mA": 
1060 FRINT "mA i eA"; 
1070 PRINT"A HE Ko mA"; 
1080 FRINT"A Be omIIT IIIT A"; 
1090 FPRINT"A Pi «yf A's 
1100 FRINT"A WWEEKEKESTTER a A's 
1110 FRINT"A MSO ml OLLIA"; 
1120 FRINT"A ha: mA": 
1120 PRINT AgRE I mans 
1140 PRINT"ARKE  m@LLIIG®EK EmTTIITO A"; 
1150 PRINT"ALI LIGEK m@LMII A": 
1160 FRINT"A AN: 
11470 PRINT“AITT T S0TSTT mT TOT Of BA"; 
1180 FRINT“AILMRSISNOSPOSRSRSRSEEK mA": 
11990 FRINTASHMI BE K KomANS 
1200 PRINT"ARHM@IR | E K Ko mANs 
1210 PRINT" AHJM K mA": 
1220 PRINT" wmeGGeeeeeeeaeeeeeeeee sm" 
2350 RETURN 
2000 PRINT: IFFEEE (H-1) < >BTHENGOSUBS200 
SOLO FRINT" Sietetelelelsletelelslolsteleletaininietelsy ; 
3020 PRINT" SSECONDS="5 INT ((TI-AL) 7.6) 100 
3025 PORE198,0 
ZO30 FRINT’ WANT TO TRY AGAIN?": 
3040 GET Z#: LF Z#< 2 "Y"ANDZ#< ="N"THENZO40 
3050 IF Z#="Y" THEN SO 
2060 SYS1LO 
4000 PRINT" s FORE S6869 , 240 
4010 PRINT" THE OBJECT OF THE GAMEIS RACE AROUND THE" 
4020 PRINT" TRACE AND CROSS THE FINISH LINE." 
4040 PRINT"YOU WILL HAVE TO FICK A SKILL LEVEL THE" 
4050 FRINT"HIGHER, THE FASTER" 
4070 PRINT" 8ITO MOVE USE:-" 
4110 PRINT" 2s UF ANS DOWN" 
4120 PRINT" sHm@ LEFT sm RIGHT" 
4130 PRINTIFRINT"ARE YOU READY?" 
4140 GETZ#:1FZ#=""THEN4 140 
4150 LFZ#="Y" THENRE TURN 
4160 GOTO4140 
5000 PRINT" O's PRINT! ERINT 
S010 POKES6B869,240:FRINT"YOU BOMBED OUT BOOB! ": PRINT 
5020 PRINT" YOU HIT THE WRONG KEY." 
5020 GOTOZO2S 
S100 FOKEV, S:FOKESS, 195: FORK=1TOINT (350-(A*#37)) :NEXT:POKESS, O:POKEV,O: RETURN 
5200 POKES4, 220: FORE=15TOOSTEF-~1:POKEV,K:FORM=11T0100:NEXTM 
S201 NEXTE: FOKES4, O: FOREV, O: RETURN 
8000 TFFEEK (7168) < 2255 THENERINT"ERROR IN GRAFHICS RELOAD FIRST FROGRAM": END 
BO10 RETURN 


CHOPPER 
ATTACK 


An arcade-style game with user 
defined graphics and a touch of 
scramble and blitz. For the unex- 
panded Commodore Vic 20. 


]. Fang 
Forest Hill Vic. 


1 REM (C) ERIC YOUNG,62 HUSBAND RD. ,FOREST HILL ,VICTORIA =171 

10 X=RND (0) 

50 GOSUBBOYU 

100 FRINT' IO": FORKE26879,12: FOKE6S0, 129: CO=20720 

110 F=1:!GL=O: TLE="000000":sFORI=17TO2: EP =77014+INT CRND (1) *70) #22: GF=77014+IN1I CRND C1) 
#20) #22 

120 FORT =8076TO8185: FOKEI+CO,5:FOKEI, 2230: NEXT: EV=INT C(RND (1) #2) 41: GV=INT CRND (1) #2 
»+1 

120 PRINT" slalsjelelalaleiaiainisislelslslse RRR Set | 6B OES" 

140 YF=77023s TIE="QO00000"sS ML=O3M2=0: BL=O 

150 FORI=B8010TOB0S3: FOREI+CO, 3s FORE, 230: NEXT: FOKE7996+CO, 32 FORE 7996, 2252: PORE799 
7+C0O,3 


160 FORKE7997 , 220: FOKE7998+CO, 3: FOKE79986, 220: FOKE79994-0O0, 2: FORE 7999, 2228 
170 BD=INT (RND (1) *2)-1: IFBD=OTHENL 40 

180 FRINT'Sit@TIMEs "RIGHTS (TIF,2)5" SCORE"; SC 

190 TFBL=OTHEN2ZSO 

200 FOREBL,32 

210 IFBLZ77247THENBL. =O: GOTO2S50 

229 TFRND(1)<. 7THENBD=INT CRND (1) #*#3-1) 2 BL=BL-22+BD 
220 FOKEBL+CO,2:FPOKREBL ,4 

240 IFRBL=YFTHENS70O 

290 TFML=OANDRND (1)< .25THENM1=8146 

260 TFM2=OANDRND (1) 2. 2S THENM2=8157 

270 ITF RBL=OANDRND (1) 2. 25 THENBL =7966+ INT CRND (1) #22) 
280 GETA#:FOREYF , 32: YF=YF+1 

290 TFA#="S" ANDBR=OTHENB=YF 

200 IFA# > "W"ANDALA 2" X"ANDAEA > "A" ANDAS< 2" D" THENSG60 
S10 CP=YF 

320 YFEvF+ ((CA#="W") #22) —- CCAEHR"XK") #22) 

S20 YRP@yvP+ (A£="A'")- CA£="D") 

S40 TFYF2® 7702 THENYF=CF 

2090 JTFYFSB1LBS5THENYF=7680 

260 ITFPEER CYF) <> SBANDFEEE (YF) < > 2THENS70O 

270 FPOKEYF+C0O,7:FOREYF , 1 

280 ITFMI=OTHEN410 
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VIC 20 PROGRAMS 


390 FOKEMI,32:M1=M1-225r1FM1< 7702 THENM1=0: GOTO410 
400 POREM1L+CO,4:POKEML, 3 , 
410 IFM2=QTHEN4S40 
420 FOKEM2,32:M2=M2-22: IFM2* 7702 THENM2=0: GOTO440 ; i. 
430 FOKEM2+CO,4:FOKEM2,= ‘ 
440 IF Bs >OTHENGOSUB470: 
450 [FYFP=MLORYF=M2THENS7O 
460 FORI=1T055: NEXT: GOTO1L80 
470 FOKEB,32 
480 PORE Sa 4 3 (230787 D0) Keer Oke ese 78, 10 
490 B=B4+22: IFB< 81 85ANDFEEE (B) =32THENS6O 
500) LFPEEK (B) = -SORFEEE (B) =GORFEER (B) =70ORFPEEK (B) =BORFEEE (2) =1L60THEN680 
510 FOKES46877 ,5:FPOKE26877, 120:FORI=1T060: NEXT 
520 POKER, 32: IFB=M1 THENM1=0: SC=SC+10 
5SZ0 [FB=M2THENM2=0: SC=SC+5 
540 IF B=BLTHENBL=0:SC=SC+45 
550 SC=SC+5: BO: FORE26875,0:FOKE%6877, 200:FORT<11075: NEXT: FOKES6877 , 0: POKE368 76 4 
o 
540 POKER+CO, 3: POKER, 2: RETURN 
570 Tl#=T1#:FOKE26877, 150: FOKEZ6878,15 
575 FORI=1 7075: FORE26865, INT (RND (1) *20)+28 
580 FOKEZ6864, INT (RND (1) #8) +8: FORK E246879, 42: FORE26079,9:NEXTI 
585 FOKEZ6864,12:FOKE%46865, 38 . 
590 PRINT" OSTISE. TISK. " st 
600 PRINT" SBYOU WERE BLOWN OUT OF THE SKY AFTER "sRIGHT# (TT#, =) :PRINT"SECONDS. " 
605 PRINT" ®&YOU SCORED":SC:"FOINTS. " 
610 PRINT" ®READ LUCE. " 
620 PRINT:FPRINT"RTRY AGAIN? (Y/N) ":PORE650O, O:FPOKE 26869, 240 
630 POKE36878,0:POKE26876,0: FOKRE26877 ,0 
640 GETAF: IFAS ="Y"ANDAES > "N" THENS4O 
650 ILFAS="N"THENSYS10 
660 FRINTEPRINT" 8 GET READY CAFTAIN " 
670 FORI=1TO3000: NEXT: RUN 
680 TT#=T1$: POKE346877, 150: SC=SC+1000: FORT <170752 FOKE 26865, INT CRND (1) #20) +28 
685 FPOKES6864, INT (RND (1) #8) +8: FOKEZ6879, 42: FOKE76879,8:NEXTI 
690 FOKES6864, 12:FOKE36865,38 
700 PRINT" DSCONGTUALATIONS CAPTAIN’ SPRINT’ 8&YOU HAVE DESTROYED THEENEMY BASE. ' 
710 PRINT SIT TOOK "RIGHT#(TT#,2)3" SECONDS." 
715 .FRINT" S§IVOU SCORED":SC;"FOINTS" 
720 PRINT BRWELL DONE!" 

20 GOTOS20 

800 PRINT" DESCHOFFER ATTACK" SPRINT" SIQISE WADX & SU:EPRINT' eC) LEO WANKERSOFT" 
801 PRINT" SeWUSTRALIA' SPRINT" Blat?—-11-1964" 

805 POKESS, 28: FOKES2, 26: POKES46869, 255: IPPEER (7168) -OTHENRE TURN 
810 FORI=7168T07679: FOKEL , PEEK (1+ 25600) :NEXT: l=7168 

B20 READA: IFA=—1THENRETURN 

30 POKEL,A:I=14+1:GOTO820 

840 DATAO,O,0,0,0,0,0,0 

850 DATAO,127,8,254,29, Lys 15 

B60 DATAO,16,16,124,2 O40 

870 DATALG,16,16,56.40.40.124, 258 

B80 DATAS2,68,58,40,184,68,8,0 

890 DATAZSS,252,250,250,2 50,249, 252,255 

FOO DATAZSS , 6% 595,95, 955 LF ON, 25S 

910 DATAR1,32,72,145,161,165,141,159 

920 DATAZ4S,4, 120,145,149,181, 191,255,—-1 


WERSSFON. 


REVENGE OF 
‘THE TOOTHLESS 
VAMPIRE 


You must help poor old Cedric, 
The Toothless Vampire collect 
his false teeth and get out of 
Wierdsville. But he must make 
the irate dentist happy, who has 
lost his favourite reading ma- 
terial and an agitated priest who 
has lost his Bible. Cedric may 
also find some useful items in 
the Cafe, but the bouncer won't 
let him in. 

Commands are entered using 
the standard verb and noun en- 
tries system. Some useful com- 
mands are (N,S,E,W), Climb/Up, 
Down, In, Get/Take, Score, Praise, 
Inventory, Spray, Help, 
Give/Drop/Leave, Wait, Pull, 
Wear, Remove, Hit/Smash and 
Unlock. 

Converted from the BBC origi- 
nal by Jimmy Fang. 


J. Fang 
Forest Hill Vic. 


VIC 20 PROGRAMS 


1;°REM*® REVENGE OF THE TOOTHLESS VAMPIRE * 

2 REM (C) JIMMY FANG 1986 

= REM CONVERTED.FROM THE BEC ORIGINAL BY STEVE (C) 1985 
4 REM (C) LEO WANKERSOFT,462 HUSBAND RD. ,FOREST HILL,VICTORIA F121, AUSTRALIA 
S REM FOR VIC-20 WITH 8K OR MORE RAM 

10 FORKET6879,8:FRINTCHR# (14) 

SO DIMQ# (45) ,S%(45,4) ,G#(20) ,B% (20) NF (20) [NZ (20) ,V#(S) 2 P%=2 
60 FORX=1T044 

62 READE 4: IFES“ =" *" THENGS (X) =O (X) +F#: GOTO6S 

S FORY=1T04:READSZ~ (X,Y) :NEXTY,X 

70 FORX=1TO2O: READG# (X) ,B% (CX) N# CX) 2NZ CX) =X NEXTX 

80 FRINT' IY: 

90 1LFFPY=45THENSOO 

100 PRINT Mist, AM:—" PRINT "A" OS (FY): 

LOS FRINT ast, CAN GO:-_" 

110 ee 

120 IFSZ%(P%,2)< >. THENFRINT" #QUTH, 

120 IFSZ(F%,2) <2. THENFRINT" AST," 

140 IFSA(FY,4) <>. THENERINT"OEST."s 

180 IFFZ=7THENFRINT” OWN, ": 

190 PRINT SR" 

200 E=.:FORT=1TO20:FRPY%=. : [FBZ (T) =FY%THENPPY=1 

210 IFRREA=1THENZZO 

220 NEXTT: GOTOZSO | 

220 IFE=.THENFRINT" ast, CAN SEE: —&i" 

240 FRINTG#(T) :E=E+1:G0TOZ20 

250 FRINT' SB82HAT SHALL -. DO NOW. .":INFUT"B=> ots Z# 

260 PRINT" I": BE=LEFT# (Z2#,2) :C#=LEFT# (Z#,2) : D#=LEFT#(Z#, 4) 
270 I[FE#="N"ANDSZ(FPY, 1) >. THENF%=S%(FP%, 1) = GOTO9IO 

280 IFB£="S"ANDSZ (FY, 2) >. THENP%=S% (P%, 2) : GOTO9O 

290 IFEB$="E"ANDSY (F%, 3) >. THENP%Z=S% (F%, 3) :GOTO9O 

ZOO IFE#="W"ANDSZ (F%,4) =. THENF%=S%(F%, 4) = GOTO9O 

310 IFB£="N"ORBS="S"OREBS="E"ORBS="W" THENPRINT" 38%. CAN'T GO THAT WAY. ":GOTO90 
Z2O IFC#="CLI"ORBS="UF" THENGOSUB670 

=20 IFC#="DOW" THENGOSUB710 

240 LFC#="IN" THENGOSUBBOO 

250 IFC#="GET"ORC#="TAK" THENGOSUBRBZO 

340 LFC#="SCO"THENFRINT" BRM HIS ISN’T A GAME!" 

270 LFC#="FRA"THENFRINT" Fal HAT MADE ME FEEL GOOD" 
280 IFC#="INV" THENGOSUBLOBO 

290 IFC#="SFR" THENGOSUBI 520 

400 LFC#="HEL" THENFRINT" 98. HAVEN7T A CLUE!" 

410 IFC£="GIV"ORC#="DRO"ORCS="LEA" THENGOSUB1 120 

420 IFC#="WAL" THENGOSUB1 280 

430 IFC#="FUL"THENGOSUBLZ20 

440 IFC#="WEA" THENGOSUBI360 

450 IFC#="REM"ANDAI=1THENFRINT" af, CAN'T GET THEM OFF MY HANDS. ":GOTO9O 
460 IFC#="REM"THENPRINT" 9f-ON'T BE ABSURD. 

470 IFC#="HIT"ORC#="SMA" THENGOSUBI410 

480 IFC#="UNL" THENGOSUB1 470 

490 [FFPYA > ASTHENIO 


SOQ TFAD= 1 THENFRINT' 83, JUST REMEMBERED. - FORGOT MY TEETH. ~« RUNBACK!":P%=2:60 

TOH90 

910 FRINT' SaaacELL DONE. OU HAVE HELFED FOOR OLD -EDRICTO SOLVE THIS VENTURE. 
20 END . 

— DATA"-~N A DENTISTS SURGERY. fil HERE’S A LARGE CHAIR IN THE MIDDLE.",#*,,,2,- 

231i DATA".~N A DINGY WAITING ROOM. &® PILE OF OLD MAGAZINES IS PILED ON “ 


S23 DATA"A CHAIR IN THE CORNER: TT! %, Py Sul 
S25 DATA"® SMALL CORRIDOR.",*,,,,2 
S40 DATA".N A DISUSED SURGERY. §# TATTY DENTSIST CHAIRSTANDS IN ONE CORNER.",*,, 


- 7 
gyqge 


S41 DATA"~N A NARROW FASSAGE.",*,,4,,4 
S42 DATA"*T THE BOTTOM OF A STEEP FLIGHT OF STEFS.#§% CAN GO UP THE STAIRS‘T', 
Hy Sy aye 
S45 DATA".N A SMALL SFARSELY FURNISHED ROOM. SWTEPSLEAD DOWN.",#*,,,5- 
SO DATA".N AN OVERGROWN GARDEN" ,#,,,,9,"~N A DOORWAY. fe PLAQUE" 
SSS DATA"ON THE WALL. READS— aR OTEPT I 1... -ENTIST’ * 12,1558). 
S60 DATA"IY A WELL STOCKED BAR. 1", *,,,,11,".N AN ELEGANT CAFE." +*,12,12,10,. 
S6L DATA" LY A FILE OF TABLES. ma ytly yy "TUTSIDE A SMALL CAFE. 
565 DATA"IHERE TS  ROUNCER ON THE DOOR. *,,,14,. 


565 DATA"TN THE FAVEMENT,AT THESIDE OF A MAIN ROAD. ",*,,,15,13 

570 DATA"IY A FELICAN CROSSING. BI HE TRAFFIC IS VERY HEAVY HERE." ,+# ee 
S71. DATA".N THE TOWN CENTRE. KIEAVY TRAFFIC STOPS MECROSSING THE ROAD." 
7G 

S75 DATA"TUTSIDE © |UNSMITHS. &.1'S CLOSED.",*,,22,,16 a 
575 DATA'#) THE -TOF OF A STEEF CLIFF.", #.,419,. 

SAO DATA'TN @ BRACKEN COVERED HILLGIDE.",#,,24,20,18,"TN A SMALL FLATEAU.",*,,, 


,19 


Weel, 


SAL DATA"TUTSIDE THE VILLAGE ILACKSMITHS. &.T'°S LOCKED. ",%*,16,,22,. 

SG DATA"LY THE GIDE OF A WIDE RIVER. SI HERE’S @ DRAW-BRIDGE HERE." ,*,17,,,21 
590 DATATTN THE BANKS OF - RIVER, SIHERE’S A DRAW-BRIDGE HERE.",*,,28,.,22 
So. DATA".N A THICK FOG. ",*,19,24,25,24,"1¥ A MAGNIFICENT ALTARIT',#,5,26,. 


593 DATA"@N EERIE CRYFT." 
1% 2B, 26 
B00) Le PETWEEN TWO ROWS OF TALL FLANTS. &IHE FLANTS LOOK LIKE TRIF 
FIpS." 

& C4 ee ee (MISTY MOUNTAIN TOF. ",#,24,,20,,"TUTSIDE A STRANGE . 

G02 DATA'CASILE. ht SOLDIER 1S 10 BE SEEN ON THE "BATTLEMENTS.",*,,, 5.29 


- oe ee THE ENTRANCE TO A MAGNIFICENT TEMPLE. 
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VIC 20 PROGRAMS 


1250 JFR=1STHENAH=. 

1260 IFR=17THENAJ=. 

1270 RETURN 

1280 FRINT" tk. "s FORX=17TO1 0002 NEXT oe 

1290 IFPZ=15THENFRINT" al HE tiIGHTS CHANGE AND - CROSS THE ROAD. ":FZ2=16: RETURN 
1200 TFPZ=16THENFPRINT" emtHe LIGHTS CHANGE AND - CROSS THE ROAD. ":FZ=15: RETURN 
1310 IFF%=24THENFRINT" #fal HE FOG LIFTS. . 
1315 [FFAZ=24THENQ¢# (24)="CN A MISTY HILILSIDE. BIHERE’S A NARROW FATH TO THE #OUT 


H." 


1317 IFFZ=24THENSZ (24,2) =29:5%(24, 5) =25:52%(24,4) =, 

320 RETURN 

1330 IFF%< >S2THENFRIUNT 8Ft-OT HERE! 6": RETURN: 

1240 IFAS >A THENFRINT efttoe? |) tt. -. GET AN ELECTRIC SHOCK! !":RETURN 
1250 FRINT" el HE DRAWERIDGE COMES DOWN! !":S% (22,35) =23:RETURN 

1260 IFAES >i THENFRINT' aa. HAVEN'T GOT ANYTHINGTO WEAR! '": RETURN 

L270 LTFAL=1 THENFRINT" 88@, °M ALREADY WEARING THEM! ' "s RETURN 

1380 AL=1:FORX=1TOS: IFV#(X) =G# (7) THENV# (X) ="" 

1290 NEXTX:Xt=" FAIR OF RUBBER GLOVES...WORN!! “L:-" 

1400 FRINT etl. ": RETURN 

1410 IFFZ< >40THENFRINT' ef, CAN’T DO THAT HERE! !'": RETURN 

1420 [TFAF< =: 1 THENFRINT" oF&. HAVE NOTHING TO DO THAT WITH! !"sRETURN 
1420 FRINT" 8a HE SKELETON FALLS IN A FILE: OF BONESt 

1440 FORX=1TOS: IFW (X)=G# (9) THENVE(X) =" 

1450 NEXT 

1460 AF=3:G64(10)="% FILE OF RONES": RETURN 

1470 LFPZ< 2S40THENFRINT" Sa-ON’T BE RIDICULOUS! !":RETURN 

1480 IFAF< 3THENFRINT" 8%. CAN'T GET FAST THE SKELETON! !": RETURN 

1490 TFAHS LTHENFRINT' ef. HAVEN'T GOT THE EEY! "": RETURN 

1500 PRINT et. OPEN THE DOOR. ":@4(40)="RY AN OFEN DOOR. ":S%(40,2) =45 
1510 RETURN . 

1520 IFAGZATHENFRINT" em. HOVEN’T GOT ANY REFELLENT! !"sRETURN 
1520 TFPZ. 42THENFRINT" 8al HERE'S NOT MUCH FOINTIN THAT HERE! '":RETURN 
1940 PRINT" eit, SPRAY THE REFELLENT AND IT MOVES ASIDE. ":8%(42,2)=44 
1550 RETURN 


BLACKPOOL 
TOWER 


You have been locked inside the 
house by your aunt who's up the 
street shopping. Being young 
and adventurous, you wish to get 
out and see the famous Black- 
pool Tower. You have to collect 
objects in order to gain entry 
into the Tower, where admission 
costs 50 pence. There is a roaring 
fire in the lounge which has to be 
contended with and a snake 
loose in the garden. If you ever 
get out, you'll have to watch the 
road, because you are only seven 
and cars are still are a health risk 
to you. 

Commands are entered in 
using standard verb and noun 
entries. Original Oric program by 
D. Reynolds and published by 
Computer & Video Games, UK. 
The Vic 20 conversion is the 
copyright of Jimmy Fang (1986). 

J. Fang 
Forest Hill Vic. 


REM*BLACKFOOL TOWER | 
REM (C) J.FANG 1986 

REM CONVERTED FROM THE ORIGINAL ORIC-1 PROGRAM BY D.REYNOLDS (C) 1984 
REM(C)LEO WANKERSOFT,62 HUSBAND RD. ,FOREST HILL,VICTORIA 3131,AUSTRALIA 

REM FOR VIC-20 WITH 8K OR MORE RAM 

10 FORI=.TO11:READA: FOKE736+1,A: NEXT 

15 DATAS2, 253, 206,232,158, 205, 32,247, 215, 76,162, 200 

SO POKES6879, 8: PRINT" Sgial: RM=1: NL=19: NV=23:NI=12: LKEZ=1:LL%=1:LB%=12 T=. : OKS=" ew 
AY..." nS 


Une Oo 


. 60 GOSUB1000 


70 PRINT" SLOCATION: —": PRINTL# (RM) 
71 PRINT" S&SBVIOUS EXITS LEAD: 8%": PRINT; : IFNOZ% (RM) >. THENPRINT".-ORTH, "3 
73 IFSO% (RM) >. THENFRINT"#OUTH, "': 
75 IFEA% (RM) >. THENPRINT" AST, "'s 
77 IFWE% (RM) >. THENPRINT"GEST, ": 
79 PRINT. " 
80 GOTO2600 
90 PRINTCHRS (13) "SMBOHAT SHALL I DO NOW": INFUT"=>al"'s I¢:GOSUB2003 IFI$="POUR WATE! 
THEN100 | | 
91 IFRND(1)<.6ANDRM=4THENPRINT" Bil HE SNAKE BIT YOU. ":GOTO9000 
92 IFRM=1S5STHEN9000 
93 IFRM=6ANDFO=. THENPRINT" Sm HE FIRE HAS SPREAD. !0U ARE DEAD. ":GOTO9000 
94 IFRM=8THENL%(1)=-1:I=I-1 
100 GOSUB200: GOSUBZ00 
110 FORN=1TONV: [FV#=Vs (N) THENSYS726, 6% (N) 
120 NEXT 
130 PRINT" SEH. DON’T UNDERSTAND—Sa": PRINT" Bat" s CHRS (34) 3 : GOSUB200: PRINTISCHR$ (34) : 
oTa90 
140 PRINT" RS CAN'T GO fi: :GOSUB200: PRINTI#:GOTO90 
150 PRINT" 3B CAN'T f'::GOSUB200:FRINTI#: GOTO90 
200 FORN=1TOLEN (I#) :SG#=MID$(I#,N,1) 
210 IFSG#>="#" ANDSGS<="e" THENI#=LEFT$ (1#,N—-1) +CHRS (ASC (SG#) -128) +MIDS(1S,N+1) 
220 NEXT: RETURN 
300 BH="":VS="": SP=.:FORN=1TOLEN(I#) 
310 IFMID#(I$,N,1)="\ “ANDSP=, THENSP=1:GOTOZ30 
320 IFSF=. THENV$=V$+MID$ (I#,N, 1) 
325 IFSP=1THENES=B#+MID# (I#,N, 1) 
30 NEXT a 
340 RETURN 
SOO IFNO% (RM) THENRM=NO% (RM) : GOTO7O 
502 GOTO1L40 
505 IFEA% (RM) THENRM=EA% (RM) : GOTO7O 
507 GOTO140 | 
510 IFSOZ% (RM) THENRM=SO0% (RM) : GOTO70 
512 GOTO140 
SiS IFWE% (RM) THENRM=WEZ (RM) : GOTO70 
517 GOTO140 
1000 DIMV# (NV) ,GZ (NV) ,L# (NL) ,O#(NI) .L%(NI) ,NO% (NL) ,WEX%X (NL) ,SO% (NL) ,EA% (NL) 
1010 READD#: IFD#< ="START" THEN9999 
1020 FORN=1TONV: READV#(N) ,G%(N) s NEXT 


TI 
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VIC 20 PROGRAMS 


1030 READDS: IFD$< >"OBJECTS" THEN9999 

1040 FORN=1TONI: READOS(N) ,LZ~(N) = NEXT 

1041 DATA START ,N,500,E, 505, $,510,W,515,DROF, 2000, PUT ,2000,GET,2200,EAT,2400,LC 
K,2600 

1042 DATA OPEN, 2800,PICK,3000,U,3200,D,3400, POUR, 2600,1,2800,R,70,UNLOCK, 4000 
1043 DATA READ, 4200, QUIT, 9000,PLACE , 4600, STOF ,9000,GLVE, 4800, ENTER, S000 

1050 DATA OBJECTS 

1960 DATA KEY,-1,SAW,4,FANSY,4,ENIFE,2,FORE,~-1,FRUIT,2,10F,-1,CUF,-1,WATER, 3 
1061 DATA FAFER,—-1,LITTER,18,50F,-1 

1064 READD$: IFD#< >"LOCAT IONS" THEN9999 

1065 FORN=1TONL 

1070 READF#: IFFS< >"*" THENL# (N) =L#(N) +P 

1080 IFP#< >"#" THENLO7O 

1090 READNOZ(N) ,EAZ CN) ,SOZ(N) ,WEZ(N) 

1095 NEXT 

1097 RETURN 

1098 DATA LOCATIONS 

1100 DATA" IOU’RE AT THE ENTRANCETO YOUR HOUSE.!HE DOORIS LOCKED SO THAT IT " 
1105 DATA"WON’T OPEN. ",#,2,23,.4,. 

1110 DATA" IOU’RE IN THE LOUNGE. | HERE ARE SOME DRAWERSBY THE WALL, ALSO A 7 
1115 DATA"LIGHT TO THE -ORTH IS VISIBLE, NEXT TO THE SETTEE.",#,6,.,1,.- 

1120 DATA" IOU‘RE IN THE KITCHEN.!HERE IS A LOCKED DOORTO THE “AST. IHERE ARE" 
1125 DATA"SEVERAL CUPBOARDS ON THE WALL.",%*,.,-,-,1 

1130 DATA" IOU’RE IN THE BACKYARDIHERE IS A SNAKE LYINGON THE GROUND BY YOUR " 
1135 DATA"FEET." ,#,- 529255 


1140 DATA" IOU’RE AT THE BOTTOM OF SOME STAIRS. IHEREIS A CUPBOARD AT THE “ 
1145 DATA"BOTTOM, BESIDE YOU.",#*,.,6,9,. 

1150 DATA" IOU'RE IN THE FRONT ROOM. IHERE’S A SETTEFIN IT. JIHERE’S ALSO " 
1155 DATA"A COAL FIRE LIT. -T LOOKS DANGEROUS. [0U CAN SEE THE GARDEN " 


1160 DATA"THROUGH THE WINDOW TO THE -ORTH, #OUTH IS THE LOUNGE, ~AST‘S THE" 
1165 DATA"HALL. {HERE ARE SOME STEPS TO THE GEST.",*,.,7,2,5 

1170 DATA" 1OU‘’RE IN THE HALL. LOCKED DOOR IS ON THE NORTH WALL.” 

1175 DATA*,.,.,+56 


1180 DATA" IOU’RE IN THE GARDEN. |!HERE'S A ROAD TO THE “ORTH. IHE DOOR SLAMS" 
1185 DATA"SHUT, WITH THE KEY IN THE LOCK.",*,14,.,.,. 

1190 DATA" IOU’RE AT THE TOP OF THE STAIRS. J|HERE’S AROOM TO THE #OUTH.",*,5,., 
10,. 


1195 DATA" IOU’RE ON A LANDING. |HERE’S A ROOM TO THE #OUTH, AND ONE TO THE " 
1200 DATA"TO THE ~AST.",*,9,11,12,. 

1205 DATA" IOU‘RE BY A BED.",*,.,.,-,10 

1210 DATA" IOU‘RE IN A BEDROOM WITH A BED TO THE *OUTH. IHERE’S A " 
1215 DATA"CUPBOARD TO THE LEFT OF YOU.",#*,10,.,13,- 

1220 DATA" IOU'RE BY A BED.",*,12,.,+,. 

1225 DATA" IOU‘'RE BY THE ROAD, WHICH RUNS ~AST-cEST. |HERE’S A HOUSE TO THE" 
1230 DATA".ORTH, ACROSS THE ROAD",*,15,16,.,17 

1235 DATA" IOU'VE HAVE BEEN RUN OVER RY A CAR." eee 

1240 DATA"IHE ROAD COMES TO A DEAD END AT THE ~AST. |HERE’S A CARPARK TO " 
1245 DATA"THE “AST AND A FATH GEST. ",#,15,18,.,14 


1250 DATA"IHE ROAD RUNS "AST - EST. IHERE’S A TOWERTO THE ~AST.",#,15,14,.,19 
1255 DATA" 10OU ARE IN THE CAR - FARK. |HERE’S A LITTERBIN BY THE YOUR SIDE." 
1260 DATA*,.,.,-,16 

1265 DATA" IOU‘RE BY IL@—""TTL 3 Ifo7 !! 10U CAN JUST HEAR THE SEA IN THE " 
1279 DATA"DISTANCE. tHERE’S A MAN AT THE DOOR WHO WOULD LIKE SOP.L",#,.,17y<, 


1999 DATA END 

2000 FD=.:FORN=1TONI: IFO#(N) =BSANDLY (N) =. THENFRINTOK#:FD=12 T=1-1:L%(N) =RM 

2002 LFRS=""THENPRINT" B8-ROF WHAT?" :GOTO90 

2010 NEXT 

2020 IFFD=.THENFRINT" @F%, DON’T HAVE Ast: PRINTRS:" sg" 

2030 GOTO9IO 

2200 IFI?>=STHENFRINT" BPR, CAN’T CARRY ANY MORE": GOTO90 

2202 IFRS=""THENEFRINT" sl ET GHAT?":GOTO90 

2205 FD=.:FORN=1TONI: IFO (N) =B#ANDLY (N) =RMTHENFRINTOK#: T=1+1:FD=1:L%(N) =. 
210 NEXT 

2220 IFFD=.THENISO 

2220 GOTO9IO 

2400 IFBS=""THENINFUT" BRAT WHAT =>"sB#:GOTOZ400 

2410 IFBS="FRUIT"ANDLZ (6) =. THENFRINT" af.T WAS FOISONED. ":GOTO9000 

2499 PRINT" SP, MUST HAVE THE 3; Bf: FRINT'STO BE ARLE TO EAT IT.":G0TO90 

2600 FD=.:FORN=1TONI: IFL%(N) “ >RMTHENNEXT: GOTO2630 

2610 IFFD=.THENFRINT"@&, CAN SEE... ":FD=1 

2620 PRINT'@A "sO#(N) 5¢2:NEXT 

2630 IFFD=.ANDV£="LOOK" THENF RINT" 8P%, CAN'T SEE ANYTHING SFECIAL AT ALL." 

2640 GOTO9IO 

2800 IFEBS=""THENINFUT" BEBO PEN WHAT => al": Bt 

2805 IFE¢="CUPBOARD" THENZ850 

2810 IFBS="DOOR" THENZ900: 

2815 IFBS="DRAWER" THENFRINT" @fi HERE ARE SOME FAFERS AND A FORK. "2L%(10) <2 

2816 IFBS="DRAWER" THENLY (5) =2:GOTO9O 

2849 GOTOISO | 

2850 IFRM=STHENFRINT" #fal HERE ’S AN ELECTRIC METER WITH 10F ON I7."%:L%(7)=5:GOTO 

90 

2860 TFRM=2THENF RINT" em. T'S FULL OF CUPS. "21 %(8) =: RNTNGO 

2865 IF RM=12ANDLEZ=1THENFRINT’ @m.T°S LOCKED. ":GOTO9O 

2870 ITFRM=12THENFRINT" Sit HRE’S A KEY INSIDE. ":b%(1)=12:60TOSO 

2899 GOTOLSO 


2900 TFRM=7ANDLLZ=1THENFRINT" 8&.7'°S LOCKED. ":GOTO90O 
2901 ITFRM=S3ANDLBZ=. THENSOZ (2) =4: GOTO9IO 


2905 
Q 

2910 
2999 
=Z=000 
BOOS 
2019 
2020 
BOZO 
2040 
3099 
2200 
S400 
2410 
2600 
3605 
3649 
2650 
2660 


VIC 20 PROGRAMS 


IFRM=7ANDLLZ=. THENFRINT" 388 IOU CAN SEE THROUGH TOTHE GARDEN. ":NOZ(7)=8: GOTO? 


IFRM=3ANDLBZ=. THENPRINT" St 10U CAN WALK IN,TO THEBACKYARD,TO THE #0UTH.." 
GOTO1LS0O 

IFBS=""THENINFUT" SMIICK WHAT => a"; Bt 

IFB#="LOCK" THENZ020 

GOTO150 

IFRM=7THENFPRINT" 3S. CAN’T FICK THIS LOCK": GOTO90 

IFL%(5) <>. THENFRINT" SF&. NEED SOMETHING WITH SFIKES ON IT. ":G0TO90 
IFRM=12THENLEKZ=. s PRINTOK#: GOTO90 

GOTO1S0 

IFRM=STHENRM=9: GOTO70 

IFRM=9THENRM=S: GOTO70 

GOTO140 


IFBS=""THENINPUT" BMOUR WHAT => at"; Bt 

IFB#="WATER" THEN3650 

GOTO1S0 

IFLZ(9) <>. THENLSO 

PRINT" sta HE FIRE HAS BEEN FUT OUT BY THE WATER. ":FO=1 


3665 L4%(9)=3s1=I-1 
34670 GOTO9O 
3800 FD=.:FORN=1TONI: IFL%(N) <>. THENNEXT: GOTO3840 
3810 IFFD=.THENPRINT"#&, HAVE THE FOLLOWING. .":FD=1 
3820 FRINT"A Wis 0% (N) sNEXT 
3840 IFFD=.THENPRINT" #R%, DN’T HAVE ANYTHING. " 
3850 GOTO90 
4000 IFBS=""THENINPUT" SM NLOCK WHAT =>2f": BS 
4005 IFL%(1)<>. THENPRINT" @a1UT ~ HAVE NO KEY. ":GOTO90 
4010 IFRM=7THENLL%=. sPRINTOK#: GOTO90 
4015 IFRM=3THENLB%=. :PRINTOK#: GOTO90 
4200 IFR#=""THENINPUT" BEAD WHAT =>al"; Bt 
4205 ae pCR GN OLE CO =a HENGE NT: mete BLANK": GOTO90 
4249 GOTOIS 
4600 IFBS=" sae rte WLACE WHAT WHERE": INFUT"=>at"s BS 
4610 LIFLEFT# (BS,6)="LITTER" THEN4650 
4649 GOTOI50 
4650 IF (MID#(B#,8)="IN BIN" ORMID# (Bt,8)="IN LITTER BIN") ANDRM=18THEN44460 
4655 PRINT" SR&, CAN'T PUT IT THERE. ":GOTO90 
4660 FRINT" Stal HE FOLICEMAN WATCHINGYOU WAS DELIGHTED. JIE GIVES YOU SOF." 
4665 L%(12)=.2bL%(11) =-1:GOTO90 
4800 IFBS=""THENPRINT" @al IVE WHAT TO WHAT": INFUT"=>4i"s Bt 
4801 LFRM<>19THENPRINT" SB, CAN’T DO THAT YET. ":GOTO90 
4805 IFLEFT# (B, 3) ="MAN" THEN4850 
4849 GOTOISO 
4850, IFL%(12)<>. THENPRINT" SFIUT - DON’T HAVE SOP TO GIVE.":GOTO90 
4855 PRINT" @MIE’LL NOW LET YOU IN. ":E%=1:GOTO90 
5000 IFB#=""THENINFUT" SBE NTER WHAT =>af's Bt 
S005 IFBS="TOWER"ANDEZ=1THENFPRINT" Silt I lee ASL eo 
"END 
5010 IFBS="TOWER“ANDEZ=. THENFRINT' Sa! HE DOORKEEFER STOPS YOU. IE WANTS S0OF.":G 
oTO9IO 
5049 GOTOLSO 
9000 PRINT" SMiANT ANOTHER GAME": INFUT" ME} as Ye: LFYS="Y" THENRUN 
CAMEL 1 REM CAMEL ADVENTURE 
2 REM FOR VIC-20 WITH 
You have to travel 200 kilometers = REM 2k OR MORE RAM. 
across the Gobi desert, trying to seal 
out-run the cannibals, who are pi A moe re ci aga. 
6 REM 62 HUSBAND RD., 
chasing you. You must renew 7 REM FOREST HILL, 
your water supply and make sure 8 REM VICTORIA 3121. 
you don’t run your camel into the 9 REM 


ground. 

Watch out for storms and wild 
Berbers which hamper your at- 
tempts to reach the relative 
safety of civilization. 

All commands are typed in 
using a number. This program 
was converted from an Applesoft 
program. This Vic 20 conversion 
is the copyright of Jimmy Fang 
(1986). 

J]. Fang 
Forest Hill Vic. 


90° 0 
100 
105 
115 
120 
125 
120 
135 
140 


FENL,2:CMD1 

FOKES46879, 25: PRINTCHR# (142) CHR# (8) 

FRINT" Tex CAMEL ADVENTURE **" 

FRINT" INSTRUCTIONS (Y/N) " 

INPUT D# 

FRINT 

IF LEFT# (D#,1) = "N" THEN 320 

FRINTCHR# (142) 

PRINTS WELCOME TO CAMEL. THEOBJECT IS TO TRAVEL 200 KMS ACROSS THE" 


» FRINT"“GREAT GOBI DESERT. ":sPRINT" SS! A TRIBE OF ENOCE ENEED FYGMNIES WILL BE 


FRINT"CHASING YOU. ":FRINT' #F& YOU WILL BE ASKED FORCOMMANDS EVERY SO OF TE 


& FRINT' SFRESS ANY EEY. 


FOFRE198,0:WAIT198,1 
FRINT "S3a8COMMANDS: —" 


3 PRINT" @alsti@ DRINE FROM CANTEEN” 


FRINT' Sasi AHEAD MODERATE SFEED" 


> PRINT‘ @ SE AHEAD FULL SFEED" 


FRINT"Ses@ STOF FOR THE NIGHT" 


73 


VIC 20 PROGRAMS 


185 FRINT"“e@ekt@ STATUS CHECK” 

190 FRINT" Sels®@ HOFE FOR HELF" 

195 PRINT" Sie RESS ANY KEY": FOKE198,0:WAIT198, 1 

200 FRINT' see RESS ANY EEY" 

205 PRINT" TM@YOU HAVE ONE LITRE OF WATER WHICH WILL LAST" 

210 FRINT“FOR FOUR DRINES." 

215 PRINT" @YOU MAY RENEW YOUR WATER SUFFLY COMFLETE-LY AT AN OASIS." 
220 FRINT"' BYOU MAY GET HALF A LITRE IF FOUND BY HELP" 

225 FRINT'SIF HELF DOESN’T COME AFTER COMMAND 68, YOU LOSE!" 
220 FRINT" S&500D LUCK":FRINT"AND GOOD CAMELING!" 

240 FRINT" BE RESS ANY FEY" 

250 FOKE198.0:WAIT198,1:FOKE198,0 

Z20 PRINT 

225 GOSUB2ZO00O 

226 GOTO48O 

740 IFC S199THEN1I210 

350 Z=Z—-1 

255 IFZ=1THENFRINT" slett-—-— mWARNINGS ---"SPRINT"m@-— GET A DRINE —-" 
256 FRINT 

260 IFZ2OTHEN1I620 

270 P=rR+1 

280 X2=INT(CRND(1)#10)42.5 

400 IFF*S4THEN4S7O 

410 €1=C1+XxX2 

420 IFCi<CTHEN4SS 

42 IFQ<OTHENFRINT" BE YGMIES HAVE ATTACKED THE BERBER CAMF. " 
420 FRINT' BEATHE FYMIES HAVE CAUGHTYOU.CAMEL AND FEOFPLE" 

425 PRINT"SOUF IS THE FYGMIES’ FAVOURITE DISH!" 

440 FRINT"sesvyouU HAD TRAVELLED"; C:FRINT"KILOMETRES ALTOGETHER" 
450 GOTO1560 

455 IFOQ:OTHEN1060 

460 FRINT' @mTHE FYGMIES ARE":C-Ci:FRINT"KEMS BEHIND YOU." 

470 FRINT'" YOU HAVE TRAVELLED":C:FRINT"EKILOMETRES" 
475 FRINT 

480 FRINT" SESCOMMAND ME,OH MIGHTY ADVENTURER: " 
490 INFUTY 

495 FRINT 

300 ON Y GOTO 820,619,680, 760,790 

550 T=INT (RND(1) #10) 

960 IFT“ >1THENI200 

370 FRINT' Si HELF HAS FOUND YOU INAN UNCONSCIOUS STATE.' 
280 S=2 

S90 7=4 

600 GOTO340 

610 F=F+1 

620 IFF=8THEN1I190 

620 GOSUBBBO 

640 X1=INTCRND(1)*10)41 

650 C=C+X1 

660 FRINT" 8s YOUR CAMEL. LIKES THIS FACE." 
670 GOTOZ40 

680 F=F+= 

690 TFF=7THEN1190 

7OO GOSUBBBO 

719 X1=INTCRND (1) #20) +1 

720 C=C+X1 

720 FRINT" # YOUR CAMEL IS BURNINGACROSS THE DESERT SANDS. " 
739 GOTOZ40 

760 FRINT' BSESYOUR CAMEL. THANES YOU" 

770 FHo 

780 GOTO350O 

799 FRINT' si YOUR CAMEL HAS"; 7—-F"GOODHOURS LEFT TODAY." 
800 FRINT" @ YOU HAVE"sS3"DRINES IN YOUR CANTEEN." 

B10 FRINT' es YOU CAN GO": Z:FRINT'COMMANDS WITHOUT WATER" 
B20 GOTO460 

820 S=S-1:F RINT" 8ES6LUGG ,GLUGG,GLUGG" 

840 TFSZOTHENL 200 

B50 IFS“ LTHENFRINT" 8a BETTER WATCH OUT FOR AN OASIS! ":FRINT 
860 7=4 

870 GOTO480O 

880 A=INT  CRND (1) #100) 

890 IFA=STHEN1120 

895 Q=1 

900 FPRINT' 8a WILD BERBERS HIDDEN IN THE SAND CAPTURED" 
910 FRINT"YOU.LUCEILY THE LOCAL. SHEIK HAS AGREED To" 
915 FRINT" THEIR RANSOM DEMANDS..." 

9290 FRINT"BUT...WATCH OUT FOR FYGMIES!" 

925 FRINT 

920 FRINT" ®iga YOU HAVE A NEW CHOICEOF SUB-COMMANDS: " 

940 FRINT" Stt7@ ATTEMPT TO ESCAFE" 

9350 FRINT" ss8 WAIT FOR FAYMENT." 

960 FRINT' BEYOUR SUB-COMMAND: " 

970 INFUTX:FRINT 

980 IFX=8BTHEN1I 100 

99090 X1=INTCRND (1) #10) 

1000 IFX1<5THEN1040 ' 

1010 PRINT" BEICONGRATS. YOU SUCCEEDEDIN ESCAFING!" 

1020 O=0 
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VIC 20 PROGRAMS 


GOTO240 


FRINT"S YOU WERE MORTALLY WOUNDED BY A FYGMY SNIPER WHILE ESCAPING. " 


GOTOLALO 

XPSINTORND Ci) # LOO)  ¥ 

REM 

TFX1 S24 THENL 100 

PRINT sai YOUR RANSOM HAS BEEN FAID AND YOU ARE FREE TO GO." 
QC: GOTO240 

FRINT" ama THE LOCAL SHEIF IS COLLECTING." 
FRINT' @... JUST BE PATIENT..." 

Ci=C1i+4 

GOTO420 

A=INT (RND (1) #10) 

IFA>2THEN1 240 


PRINT" s8iVOU HAVE ARRIVED AT AN OASIS...YOUR CAMEL ISFILLING YOUR CANTEEN" 


FRINT"AND EATING FIGS." 

Z=4:9=4 

RETURN 

PRINT" 8F4 YOU DIRTY BASTARD! YOU RAN YOUR CAMEL. TO HIS DEATH." 
GOTO1410 

FRINT 


PRINT’ S§iVOU WIN! @ PARTY IS BEING GIVEN IN YOUR" 
FRINT"HONOUR...THE FYGMIES ARE FLANNING TO ATTEND" 
GOTO01560 

X1=INT(RND (1) #100) 

IFX1 2S THENLS50 

PRINT" el YOU HAVE BREEN CAUGHT IN A SANDSTOREM... GOOD LUCK SUCKER. 
X¥S=INT (RND(1) #10) 
XG=INT (RND (1) #10) 

IFX6<S5THENIZ20 

C=C+X5 

GOTO1IZ50 

C=C-X5 

PRINT"@YOUR NEW POSITION IS":PRINTC"KM SO FAR." 

PRINT 

RETURN 

X1=INT (RND(1) #100) 

IFX 1 >STHENRETURN 

Ci=Ci+4 

PRINT’ SRVOUR CAMEL HURTS IT HUMP." 

FRINT'SLUCKILY THE FYGMIES ARE FOOTWEARY!" 

RETURN 

U=INT (RND (1) #10) 

PRINT 

PRINT" sRYOU DIED IN THE DESERTAFTER':Cs "KMS." 
IFU>ITHENI460 : 

FRINT'@ITHE NATIONAL CAMEL’S UNION IS NOT ATTENDINGYOUR FUNERAL" 
GOTOLS60 

IFU>STHENL490 

PRINT" SYOUR BODY WAS EATEN BYVULTURES AND IMPORTED CANNIBALS. " 
GOTO1540 : 
IFUPSTHENIS20 

FRINTSITHE LOCAL SHEIK NOW USES YOUR SKULL AS A CHANGE PURSE." 
GOTO1S40 

IFU>7THENL SSO 

PRINT’ @FEOFLE WITH LITTLE INTELLIGENCE SHOULD" 
FRINT"STAY OUT OF THE DESERT" 

GOTO1560 

PRINT SITUREEYS SHOULD FLY,NOTRIDE CAMELS!" 

PRINT 

FRINT @MWANT & NEW CAMEL AND A NEW GAME.” 

INFUTD# 

PRINT 

IFLEFT# (D#, 1) ="Y"THENRUN 

GOTO1450 

FRINT’SaYOU RAN OUT OF WATER..SORRY CHUM!" 

GOTO1410 


FRINT#1:CLOSE1 
FRINT "i": END 
Z=3:5=4:F=12RETURN 
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VZ200/300 


DRAWING 
PROGRAM 


This is my version of a hi-res 
drawing program with a joystick 
option and printout capability 
for the VZ200/300. 


R. Winter 


CLS:PRIMT: PRINT" PRESS 
PRINT:PRINT" = OR 7? J? 


CS=INKEYS : CH= 1NKEY'S 
TFCS="K "GOTO? 
LFCS="" I" GOTOZ88 
[FCS=""GOTOS 


FRIHWT #EMO COR’ AYVIALABLE WITH ° 


"Ee FOR [Sad Se) COM TROL 
Fike | ee a 
ar oe 


~~) Oy fe a fee Re 


CLS: PRINT: PRIHT" 


EE HOR TS TROTLON So 


Morphett Vale SA 


SB PRIHT: PRINT" USE ARROW EEYS FOR LRRD" 

9 PRINT: PRIHT" USE “AS FOR UL - ‘5’ FOR UR" 
14 PRIHT" USE “2° FOR O-L - “He FOR DR" 
11 PRIWT: PRIHT" ‘Re TO RUE OUT" 

12 PRIHT" RP" FOR FRIHTED Cory" 

1s PRINT" "UW" TO CLEAR SCREEM" 

i4 PRIMT@#453."- PRESS ‘G’ To Go -" 

13 SS= IMR ES : $= THRE ys 

16 IF SB. 2" G"GOTOLS 

Lt MODES 1} 


19 SETORAY 
KS=ITMKE YS: FORT=1TOS8 : MEST : Kii= [HEE 
[FKS="M"HeH-1: GOSUBLS2 
[FKS="ANH=K=-1: Y=''-1:GOSUB1S2 
IFKS="."X=x+1:GOSUB182 
IFKS="S"Kex+1: Y=y'~1  GOSUBIS2 
IFKS="."Ys'/-1  GOSUBLE2 
IFKSS"2"YSv+1:X=K-1:GOSUBISE 
IFKS=" "Ys/'+1:GOSUBIS2 
[PKs "AO VeN el kek+1  GOSUBLES 
[FKS="RURESETS H, 
IFKS="P "COPY 
IFRS ="U"CLS: FORH=1 T0280: MENT -GOTOL? 
GoTozea 
IFX ase 


moh OA CAA 


PIT eee eee eee 
ht) NN 


Tt fx ee 
he 8) 
ae 


1, fe fh Ta 


SETS As. 


: Jeo DIRECTIOMS" 

: PRESS “C’ TO CLEAR SCREEH" 
PRINTBS22, "— FRESS “G* TO GO -" 
SE=TNKEYS $: Sh=THKEYS 

B35 IF S$. "GO" GOTI2b4 

eH6 MODES 1 3 

2038 4235: '%=35 

216 SET 4.7) 

228 A= C THRPC 43 DAHDS1 

eee LS=THKETS: LS=ITHKE Ss 

258 [FAR=2/e=4-1: GOSUBLES 

a IFAS ceasam dss]: GOSUEL a2 


He 1 eS 

7. 
a5 
a 
— 
ue 
Be) ‘ 
oom 
— 
ip 

2H 

mm 
[— 
ie 
—j 
(ey 
ai 
I 


TM Moko bo Oo ae 


ff 


w 
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IFA=23R2H4+1 : 
LFAH22H=4+1 : 
IFA=s0'="/~1 
IFAHeS s+]: 
IFA=23'(=''+1 : 


Ws Ty 
OW) BD 


— 
onde 


BIBI DI haha ho Ad fa 


Pee YO A) s) 
(i 


te) 
Mk 


nN 


GOTO226 


IFARZLY="+1 0 8= 
IFA=15RESETE M43 
IFLS="C"'CLS :FORI=1 T0208: HEXT  GOTOSHE 


GOSUELS2 
Yei'-1: GOSUBIS2 


‘GOSUEL ae 


42=hA°1: GOSUET aS 
LOSUBLISS 
Bei  GOSUET ES 
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S:PRI HTB 36. '~Ree  - "  PORT=1 T0040  HEXTT 


TEA-POT SONG 


HM CLS PISS 
; iy we LS ’ ms oes. nm = =, ” 
This is a computer variation of 2 GUSUB IGS: GOSUB LAS: GOSUE11S 


FORT=1TOSGG: NEXT 
PRINT@S3, "I'M A LITTLE TERA pot" 
SOUND LG. 25 18, ay 20,253 23.45 28.4 
PRINT@35:, " 

PRINTRS?, * " 

PRINTESS, " 

GOSUB LHe: GOSUBLBS 

PRINTB7E, "SHORT... " 

SQUND2S 4 

PRIHT#233," ih" 

PRIHT#SSH. " Si" 
PRINTRES2, iy |e | 
PRINT@S5. "AHO STOUT." 
SQUMD22.4123,6 
PRINT@256. 
PRINT@Z89. ) 
PRINT#320," 2 Pi" 
PRINTP141,"HERE 1S MY HANDLE, " 
SQUMD21.4:21.2321.2;20,4;28,4 
FRIHT#-5ée.' i | 

2 PRINT#2S9." 2 | 

43 PRINT#S20." 2 ir" 

44 PRINT@352," pee 

45 PRIHTRE24," — 

46 PRIHT@I92." Lene 

54 PRINT@I74. "HERE IS My SPOUT." 


my four year old Gaugnter S 
favourite song. 


aa 
as, 


R. Winter 
Morphett Vale SA’ 


- 


PRINT" all 
PRINT" hada 
PRINT" Fecsoencsll 

rae 
| 


i pow 


PRINT" . 
PRINT" 
RETURM 
PFRIHT" 
PRIHT" 2 Pant 
PRINT _ = 
PRINT" a 
PRINT" a 68 
RETURH 

PRIHT" “ 68 
PRIMT" a 68 
PRIMT" as 2" 
PRINT" — 
RETURH 


T CR to 2 e 


3 my) Ve tet 0 {13 [3 [3s fu3 te ot Op iy 


WSot Sop Tae Sy aes he athe Kee 


QAM ABW Om mon BoA 


5 ee ee 
“ee Mt = 


Pee bk ee pee fet pe peek pe pk pee pe ee pe ee 


ee ee ae 


S4 SOUMD1S.4518.2518.2)16.6 

SS PRINT#43."  WHEH 7 GET ALL. 

Sé PRINT#?6." STEAMED UP : 

SS PRINT@I41.," " 

So PRINT@IT2. " " 
6@ SQUND16, 2515.2) 20.2321.2:23,4328,4 
61 PRINTR@S6. wth om 


FORT=1 7020: MEXTT 
PRINT@S4." faa 

FORT=1 7028: NEXTT 

PRINTH32," tle eM 

FORT=1 T7020: NEXTT 

PRINT? &." 88 oa @ BM 

PRIMT@142. "HEAR ME SHOUT... © 

SOUMD25.4328,4523,6 

PRINT@E." " 

PRINTBS2, " : f 
PRINTBE4." TIF ME OVER.... ‘ 

PRINTBS6, " ae Po 

PRINT@I4Z," : 
SQUMD23,.6:25,.2:23.4:21.4 

PRINT@192," mma : 

PRINT@224," = _ 

FRIHTH2IS,. a 2 

PRINTS232," 2 i mm 

PRINT324,." 

PRINT@d1¢." mm" 

PRINTR44S, " om 

PRINT@S1. "FOUR ME QUT!" : SOUND28.4:18.4516.6 
FRIHT@432." MNP: PRINTR464," a 

FORT=1 T0200: NEXTT : | 
PRINT@204. "Y": SOUNDIG, 1: PRINT@336. "¥" SOUNDS. 1: PRINT@S6S, "ye 
P SOWMO14. 1 PRINT@461 . "¥": SOUNDIS, 1: FORT=1 7028 NEXTT  SOUNDIS.& 
FORT=1 701 See: HEXTT | 

PRINTR4S6,." ": PRINT" HIT “4? TO RUN AGAIN"; 
AS=THKE YS: AS=INKEYS : TFAS="Y"GOTOS 


Teh Ab Ted med med ed I oo oy 
ATV Md eS AD mo a fe ad fal 


AY 8 


— 


Us oa es eT 


Th) 2 fe et fod Ea 9) oy 


Ce hye lr le lye iste yt tt 


a7 IFAS=""GOTOSE 
a9 [FASS 2 "Y"GOTOSS 
160 CLS 

141 FRIHT 
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PING TENNIS 1 POKE30744,1:CLS 
ee pias 99 XX=1:X=1 
A two pla 
rane oe eameectenis wth «4100 CLS Be7:Ca1 :D=7:E090 
105 FORZ=2864672TO29152STEP32: POKEZ, 1735: NEXT 


our opposition as you like. Y 
nae gen = 110 FORZ=28703T029183STEP32!: POKEZ, 191!:NEXT 


walls on the sides. The first per- 115 COLOR3:PRINT@O, " “;sPRINT@O, BC: PRINT@46,CC 
son to three sets wins. The first 120 COLOR4: PRINTG@164, ” ":PRINTG@28, DC: PRINT@G22,EC 
person to 21 points wins a set. 210 POKE28672+ (32KYX+tXY) , 32 
Like tennis, you have to win the 215 POKE28672+ (32¥YY+XX) ,15 
set by two or more points or the 220 YX=YY:XY=XX 
set cc ntinues. This game re- 225 IFYYSL14THENY=RND (2) -2 
quire , joysticks. 226 IFYY<2THENYY=1: Y=RND(2)-1 
Because of my printers’ limita- 230 IFXX>30THENSOO 
tions, | could not include graph- 235 IFXX<1THEN4GOO 
ics sy abols in the program prir-.- 240 XX=XX4X: YYSYY+Y 
out so here is a list of them: 245 A=(INP (43) AND31) 
line 115 250 IFA=30THENPOKE28704+ (32¥B+tC) , 32: B=B-1 
“Shift J(x16)" 255 IFA=29THENPOKE28704+ (3S2¥B+tC) , 32: B=B+l 
line 120 256 IFA=27THENPOKE28704+ (3S2¥B+C) , 32: C=C-1 
“Shift J(x16)" 257 IFA=23THENPOKE28704+ (S2kB+tC) , 32: C=Ct+l 
260 IFBO14THENB=14 
R. Duncan 262 IFC<1THENC=1 
Crafers SA 265 IFB<OTHENB=0 


267 IFCS29THENC=29 

270 POKE2Z8704+ (32¥B+tC) , 175 

275 IFABS(B+t1-YY) <2ANDC=XXTHENX=+1: Y=RND (3) -2 
280 F=(INP (46) AND31) 

285 IFF=30THENPOKE28704+ (S2¥D+E) , 32:3 D=D-1 

290 IFF=29THENPOKE28704+ (32¥DtE) , 32: D=D+1 

295 IFF=27THENPOKE28704+ (S2¥D+E) , 32: E=E-1 

300 IFF=23THENPOKE28704+ (324¥D+E) , 32°:E=Erl 

305 IFDSL4THEND=14 

307 IFE<2THENE=2 

310 IFD<OTHEND=O 

312 IFE>*3OTHENE=30 

315 POKE28704+ (32¥D+E) , 191 

320 IFABS(D+1-YY) <2ANDE=XXTHENX=-1: Y=RND (3) -2 
371 GOTO210 

400 DC=DC+1: IFDC >20ANDDC-BC>1THENDC=0: BC=O: EC=EC+1 
403 IFEC>2THENEND 

410 XX=1:xX=1:GOTO100 

500 BC=BC+1: IFBC>20ANDBC-DC>1THENDC=0: BC=0: CC=CC+1i 
SOS IFCC>2THENEND 

S10 XX=#=30: X=-1:GOTO100 
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CONCENTRATION 


The program called Concentra- 
tion and is based on the age old 
game of the same name. Be- 
tween ten and fifty cards can be 
selected to appear on the screen. 
Behind these cards are randomly 
hidden pairs of cards. The game 
is finished when all the pairs of 
cards have been uncovered. 

This program is a real test of 
your concentration. 


L. Vella 
Leopold Vic. 


VZ200/300 PROGRAMS 


REM A GAME OF CONCENTRATION 
REM BY L.J. VELLA 

REM 1386 

POKE3@744, 1 

REM 17-24 PREPARE FOR INTRODUCTION 

DATA 28672. 28688, 28928, 28944, 175, 198,227,245 
DIM J¢4):DIM HC 4) 

FOR B=1 TO 4 

READ JCB) 

NEXT 

FOR B=1 TO 4 

READ HCB) 


NEXT 
IF PEEKS 28672 9=159 GOTO 47 


CLS 
REM 28-39 DRAWS INTRODUCTION 
GOTO 34 
POKE AF.-AG 
AH=AH+1:1F AH=16 THEN AH=@: AF=AF+16 
RAF=AF +1 
AI=AI+1: IFAL=128 GOTO 34 
GOTO 29 
SOUND 31,1 
AJ=AJ+1 
IF AJ=5 THEN GOTO 46 
AGSHC AJ 2 APSO AJ 
AH=0' Al=2 
GOTO 29 
GOSUB 10180 
CLS: PRINT@106,"00 YOU WANT INSTRUCTIONS" 
PRINT@172, "CY OR NO": FOR B=1 TO 360'NEXT 
FS2INKEYS 
H@2INKEYS'IF HS="" GOTO 49 
IF HS2"7"OR HS="N" GOTO 7@ 
CLS'PRINT@S9, "YOU DID NOT PRESS ¢Y OR NO" 
GOSUB 12368 
GOTO 47 
IF H$="""GOSUB 18626 
CLS 
POKE3S0744, 1 
GOSUB 108480 
GOSUB 16240 
DIM AC99>:REM 75-186 NUMBER POSITION 
DATA 28786, 28769, 28712, 28715,.29718,29721, 28724, 28727, 28730 
DATR 28733. 28776, 287793, 238776, 23779, 29782, 28785, 287383, 28791 
DATA 28794, 28797, 238934, 28337. 28846, 29843, 283946, 28849, 28852 
DATA 28855. 28853, 28861, 28998, 28981, 28904, 28907, 28918, 28913 
DATA 28916, 28919, 28922, 28925, 28962, 28965, 28968, 238971, 238974 
DATA 29977, 28980. 238933, 28986, 28989 
FOR B=1 TO Se 
READ ACB) 


186 NEXT B 


REM 2660-296 GRAPHIC CHARACTERS 

DIM C&25) e 
DATA 2068, 239,175,191,255, 223, 143, 227,217,188. 165,133,172 
DATA 243, 146,231,179, 163,252,131. 195,256, 136, 169, 134 

FOR B=1 TO 25 

READ CCB) 


NEAT 
S REM 300-390 SHUFFLES CARDS 


308 DIM DCAKD 
310 FOR B=1 TO AK 

320 E=RND¢ AL > 

330 IF CCE=@ GOTO 320 

34@ IF CCE) >9@@ THEN CCE 2=C(E0-200 + I=1 
350 DOB SCCE) 

360 IF I=1 THEN CCE = 

370 IF 1=@ THEN CCE =CCE>+200 

338 I=0 

390 NEXT 

708 DIM HC 49 


REM 716-735 SCOREBOARD IMFORMATION 
B=RNDC22:1F B=2 THEN 4=1 
PRINT@3SS3, " " 
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r24 1F Wel THEN *~=6 

feo PRINT@4¢49,689;5" "i'¢ 

726 IFW<>1 PRINTH464,.ASi" "GZ 

ve? PRINT#425,"< SCOREBOARD >" 

728 IF 2+Y=AL GOTO 121968 

729 IF 4=1 PRINT@#333,A%S 

7°36 IF A=4 PRINT@S53, 65 

fod IF Wel PRIMT#464, "ATTEMPTS" 3 AC 
738 REM 739-834 MUMBER SELECTION 


C=1 
74 IFR=4ANDA=10RR=4ANDAR=1ORR=4AINDG= 1 ORR=4ANDGG=1 :C=3 
741 A=@:AR=0:K=0:G=0:GG=0:NP=O 
742 IFC=L*HSC 102" "HSC 29" HC Se HC gh 
743 IFC#S:H8¢ 3 y=" " HEC 4 =" 
744 IFCs1 PRINT@413, " M 
746 IFC=3 PRINT@4Z2,"  " 
747 IFC=1THEN U=418 
748 1FC=3 U=42z 
75@ FOR R=C TO 4 
755 IF R<=2 PRINT@3S5, "SELECT ‘YOUR Imes HUMBER " 
760 IF R>=3 PRINT@3SS, "SELECT YOUR IS@0iI) NUMBER " 
765 FS=INKEYS 
77@ GS=INKEYS: IF GS="" THEN 765 
775 IF GS="G"ORGS="1"ORGS="2"ORGS="3"ORGS="4"ORGS="5" THEN Kal 
780 IFGS="6"ORGS="7"0RGS="S"ORGS="9" THEN K=1 
735 IF Kai THEN 79@ ELSE 765 
79@ PRINTGU, G& 
795 SOUND 31,1 
808 U=l+1 
$16 IF U=42@ LET U=4z2 
S15 HS¢CR=G5 
828 CH=HSC 1 +HSC 2 I+HEC SF I+HEC 4D 
825 DesLEFTS( CH, 2) 
830 ES=RIGHTS( CS, 2) 
834 S=VALC DS? 
835 REM 836-978 HUMBER PARAMETERS CHECK 
836 IF R=2 GUSUB 956:IF ARi=1 OR G=1 OR GG=1 OR A=1 GOTO 739 
937 IF R=2 GOTO 1028 
S48 T=VAILCES > 
341 IF R=4 GOSUB 956:IF AR=1 OR G=1 OR GG=1 OR A=1 GOTO 740 
842 K=a 
S5@ NEXT 
S52 PRINT@3E5, " " 
855 GOTO 1020 
856 LaACS 2: MaRKT? 
857 IF Re2 N=PEEK(L 2: 0=PEEK¢L-1 > 
859 P=PEEKCM):G=PEEK(M-1 9 
859 IF R=2:1F N<43 OR NOS? THEN LET Al 
860 IF R=4:1F P<43 OR P>S7 THEN LET Ae! 
861 IF SAK OR T>AK THEN G=1 
862 IF R=4 AND S=T THEN AR=1 
S63 IF S=0 OR R=4 AND T=@ THEN GG=1 
S66 IF GG=1PRINT@39S, " WaMLMMMRUG1=) 24a Teme "  GOSUB12300 
879 IFG=1PRIMT@S95, "00S DCM RUUGI=) 1 ATE" | AK: GOS UB12300 
872 IF AR=1PRINT@SSS, "NS eA" | GOSUB 12300 
958 IF A=LAMDG=GANCAA=@ANDGG=0 THEM LETNF=1 
968 [FHP=1PRINTE SSS, "00 CEE MSR] Oe": GOSUB LZ 
97 RETURN 
1919 REM 1829-112@ DISPLAY SWUARE 
1020 IF Rez POKE AGS 2.0639: POKE ACS 9-1,0059:S0UMD1,1:GOTO 342 
1646 POKE AC TOT: POKE ART I-1,06T) 
1958 IF b=1 THEM AC=AIC+1 
186@ IF PEEK(L) = PEEK(M? GOSUB 3008 ELSE 1106 
igs@ GUTO 720 
1108 SOUND 1,1 
S PRIMT@SSS » " WMS) 639 20am cA ia De eS 
1@ FOR B=1 TO ¥sHEAT 
iS PRINT#SS5, " " 
26 POKE LN: POKE L~-1,0:FOKE M)P:POKE M-1,0 
4 


15) 


O68 REM 1148-1166 WHO GOES HEXT 
M IF “«=6 THEM “=1:G0TO P’2eu 
6M IF ”=1 THEM x0: GOTO 724 
2993 REM 3668-3160 SCOREBUARD 
32000 PRINT@413¢, " " 
SMO? IF «26 PRIHTBHSS2." “jBSs" YOU MATCHED A PAIR" 


a ga a a tt 
80 
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3403 IF 4=1 PRINT@#352." "jASi" YOU MATCHED A PAIR" 
3049 SOUMD 16.2:18: 23 28,23 21,.2i23,2i25,2ie7 2i23.2 


IF W=1 GOTO 3148 
IF X=@ THEN =7+1 

IF ¥=1 THEN Z=2+1 

IF 2+¥=AL RETURN 

IFA= PRINT@SSS, " KMMLLMMTS MMSE a Se GLO sl : 
IFX=1 PRINT@3SS. "WME See : 


3010 
3020 
3044 
360 
sb 
3164 


3119 

3115 

312u 

3146 

3166 

141ise 
19196 
10269 
LHWZ220 
1H223 
1e230 
1y235 
19246 
18266 
19230 
1o30¢ 
18310 
19320 
10348 
10368 
193808 
1udad 
16420 
Lod44ig 
18445 
10456 
16460 
Lyuédsa 
li4s1 
Lu4o2 
1yu453 
19434 
16435 
18454 
19435 
1H352b6 
183521 
1HSz2 
14323 
1525 
LES 
Liagd 

LHS SS 
LHa4h 
1wS55e8 
183355 
LHS68 
Lease: 
16364 


=p 
a iy Gi 
OF OF Ooo, aa 
me, oe FG To, A 


- bh bt 
Mmm i Gi 
LACH CHO CAOA U e 


pe 
GG & 


SOUND 
FOR B=1 TO ¥?HEXT 
RE TUR 7 
~=7+1 

RETURM 


Be PRIHTHS61, "5 


16,2;20,;2 


COLOR 3,1 
PRINT@99,"A GAME OF" 

FRIHT@1393. "CONCEMTRAT LOH" 

FRIHT#433,. "BY L.J VELLA" 

FOR B=1 TO 2600: NEXT 

CLS 

RETURM 

COLOR 2.0 

PR LNT ' Ss 
PRIHT#32,"8 18 28 38 48 58 oe 78 Se 781 0mm" 
FRINT@S4, " 
IF AK e=e20 
AK 7228 
AK 7=30 
AIK 7=3 
AK 7=48 
AK 7= ao 
AK = 


PRINT#96, "M1 1M 281 381481581681 (81 Se) Seo" 

PRINT@L2¢E , ° SS 

PRIHT@160, "M21 @2c@e ses SRe6Re / Eecee seo" 

PRIHT@192, ' Ses 

FRINT@224, "MS 1 BS 28S SI 4 8 SE6RS (RSS 94 ome" 
FRINT@SS6 , * San 
PRIHT@S33, "4 LEA CIN SEIS ems (4c Soe" 

AK =38 PRINT@S26 , | aes 

PRINTEOSS, " FLEASE WAIT WHILE I AM : 

PRIHT@339," SHUFFLING THE CARDS " 

RETURN 

FRIMT" SELECT THE NUMBER UF PLAYERS 

FOR B=1 TO 268: HEAT 

FS=IHKEYS 

HS=INMKE'’$: IF HS="" GOTO lodce 

W=VAL" HS 2 

IF W=1 OR Wee GOTO 16520 

CLS: FRINT#225, "(OU DID HOT PICK A C1 

GOUSUB 123606:CLS:GOTO 1b4eB8 

CLS:‘FOR B=1 TO sé: NEXT 

CLS:FPRIHT" ENTER THE HAME UF THE FIRST" 

INPUT" PLAYER AWD PRESS RETURN "j 6S 

IFLEH. BS =U TUL ese 1 

IF LEHR ES 2211 GOTO 1548 

MLSs PRIME, OUR HARE HAD MORE THAW" 

PRIHT#I35. "TEM LETTERS" 

BOSUE Les60 CLS: GUT abet 9) 

IF W=1 THEM a=8:LOTOLaSSe 

RLS: PRIHT" ENTER THE MAME UF SECOND" 

IMPUT" PLAYER RHD PRESS RETURH 

IFLEM. AS =BB0TOLBSSe 

IF LEM. AS 9411 GOTO Losey 

CLS: FRIHTHI8@, "OUR HAME HAO MORE THAW" 

PRIHT@133, "TEM LETTERS" 

BUSUB Losi: lL: GOTOLeS 3 

RLS PRIHT#S9, "WOULD ‘OW PLEASE SELECT THE" 

PRIHT#1I31."AMMOUNT OF TIME THE SYMBOLS 

PRIMT#I6S,. "STAY DISFLAYED ON THE SCREEN" 

PRINT@S33, "1 SECUMDS " 

PRIHT@255, "2 SECOHES" 

PRINTWA9¢, "3 SECONDS" 

PRIMM 323, "4 SELUHDS" 

SECUHDS" 


C1 OR 22" 


OR C29" 


"SAS 


Ch Gh 


toibu aon 


FS=ITMKEsS 
HS=IHKE TS: TF 
YEVALC AS 2k lod 

IF V>=500 AND V<=2509 THEM GOTO 18599 ELSE 16594 
CLS 

CLS: PRINT@99, “WHOULOD YOU PLEASE SELECT HOD" \ 
PRINT@131, "MANY SBUARES YOU WOULD LIKE" 

PRIHT#ie3."TO PLAY AND THEN PRESS": PRINT@195, "RETURN 


81 
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14683 
1u604 
10665 
1b6u6 
1g607 
1u609 
19614 
14611 
14612 
16619 
1W6268 
16638 
19635 
19644 
19660 
1u638 
1b7ey 
107°2E 
10744 
Lure 
1e’sy 
LHSshe 
16318 
1ws26 
14336 
lwus4u 
Lessa 
1368 
Lusru 
1H580 


es 
SW & 


i U8 Ub OO un 4 


Da) 
Bip cia ach & he 


pee pet ets ee 
Sigg 


mi CG ly 


aa 


Of de Gi he 
IeGVG aa gy Gas GH Gish i Gi Gi 


i Fe be mt ee ee ep pe pe pe pe 
MT os fe 


se we [1s t* 


“J iT, Be Pe Be oo on ay 


1S 
a} 
MOUS VUPAOMNG PAs 


al bs Pt pst pes Ps Gs pe 


“RIO Ghd ho Go 


Ph eo st pe pe pe pe ps ps pe 
A OR CR CO NO ORE OW ON OU | 


PRIHTw2er. “Ma OU CAH UNL SELECT" 
PRIHT#2S9, "10,20.30,40,0F Sp" 

PRIHT#292," " 

IMPUT" HAR PU Ase" | AK 
IF AK=19 ORF AK=Z200RAK=39 UR AK=46 OR AK=S6@ THEM GOTO 10612 
CLS‘ FRIHT@186, "YOU DID HOT SELECT" 
PRIHTHI32.°18,286,358,44,UR Sy": GOSUB l2sb@ 
GOTO ivewe 

AL=AK/2 

CLS: RETURH 

CLS: AB=0 


COLOR. @ 

PRINT" IHSTRUCT IONS" 

PRINT" ETRE EARNS 

PRINT" ‘YOUR GAME OF COMCENTRATION IS" 


PRINTRI6. "VERY ERS’ TO PLAY. SIMPLY ATTEMPT" 
PRIHT#i2é,."TO MATCH THE FAIRS OF SYMBOLS" 
FRINT@1e¢, "HIDDEN BEHIND THE CARDS.IT CAH" 
PRIHT@192,"6E PLAYED BY OME UR TWO PERSOHWS. " 
PRIMT#224, "DS Se" 

FPRIHT#2356, " INITIALLY THE COMPUTER THROWS" 
PRIHT@239."A DICE TO SELECT WHO GLUES FIRST." 
FRIHT@S20,."HEXT THE COMPUTER WILL ASK IN" 
PRIMTMSS2,"TURMZERCH FLAYTER TO PICK THEIR" 
FRIHT@334, "FIRST AND SECOHD HUMBER, WHICH" 
BUSUB lewug 

PRINT"REFRESENTS TH CAROS.IF THESE" 
PRIHT@ 32. "TH CARDS HAYWE IDEMTICAL SYMBOLS" 
PRINT#eE4+. "THE CARDS WILL STAY DISPLAYED" 
PRIHT@#SS,"AHD THE COMPUTER WILL ALLOCATE" 
PRINT#HIzs. "AH POINT TO THE FERSOM WHO SELEC-" 
PRIHT@leg, "-TED THEM.AS WELL AS GIVING THAT" 
PRIHT@1i92, "PERSOMH AMOTHER TURH.IF THE TWO" 
PRIHT@224. "ARE HOT THE SAME THE CARDS WILL” 
PRIHT#SSe,"TURH OVER TO THEIR ORIGIHAL HUM-" 
PRIHT#ESS,"BER.THE IDER UF THE GAME IS TO" 
PRIHT@S2o. "REMEMBER WHAT SYMBOLS ARE UNDER" 
PRIHT#S52."ERCH CARD, SO AS TO ASSIST IH" 
PRIHT#SS4, "SELECTIHG A MATCHED FAIR OF" 
BOSUE Zao 

PRIAT CARDS LATER OH. THE PLAYER WITH" 
PRIHT#@s2. "THE GREATEST HUMBER OF FOLHTS AT" 
PRIMTMed. "THE EMO OF THE GAME WIS. " 
FRIHT@Ss. "Tle hdl" 

FRIHT@1Le3, " IF JOHLY OME PLAYER PLATS, THE" 
PRIHTH1SE. "COMPUTER SHOWS HOW MAY ATTEMPTS" 
FRIHT@1I92, "WERE MADE TO CISPLAY ALL THE FA-" 
PRIHT@224. "TRS OF SYMBOLS. ita WHEH A HUME" 
FRIMTHeETe, "ER BETWEEN 1 & 3 1S REQUIRED, " 
PRIHT#HSS3, "SELECT A ZERO FIRST.FOR EXAMPLE 61,85,09, 
eee pl ck dd ee" 
Hbe= 

PRINT#416." ladda SEE STD Se 
FS=[HKEs'S 

HS=THKE SS: TF HS="" GOTO Leben 

IF HS=" " GOTO Leng 

IF AB=1 AHO HS="T" GOTO 1leeze 

GUTO 12828 

L's: RETURH 

IF Wee AMD 23) PRIMT@SS2." "SASS" YOU WOH 


IF Wel AND Yes PRIHT#S52." “GBI” ‘OU WOH i 
IF Wee AMD ‘=f PRIHT#SS2, " VOW BOTH WIM IT’S A DRAM ‘ 


IF Wee PRIWTH415, " 

IF W=il PRIHT#e S52, " 
IF WH=lPRIHT@4 15. 685" t 

[F WHlPRIHTe4435," ‘OU FIMISHED IN" J AGG “ATTEMFTS" 
PRIHT@S54." iM A ee ee 
SUWHE 20, 1418.1528,1110,1520,1518.1 

FS=INKENS 

HS=[MKETS: IF HS=""GOTO Lead 

IF HS=" "THEN RUH ELSE l22dy 


A SOWHO 31,1629. 1627. 1625,1423,1621,15619.151701515,14113.1 


SOUHO Li 1is, 1s Polis. iss hilsl 
RETF} 


SUPER SNAKE 
TRAPPER 


Super Snake Trapper is a two- 
player game of skill. You have to 
move your snake around the 
screen without hitting the walls, 
the other snake or yourself. If you 
do hit something your score goes 
down. If it reaches zero you lose. 
If you are about to crash you can 
press the fire button and you will 
be put somewhere randomly on 
the screen, but the computer 
might land you on something 
and you will lose points. Joy- 
sticks are required to play this 
game. 

Because of my printer's limita- 
tions | could not include graph- 
ics symbols in the program print- 
out so here is a list of them: 
line 15 
“Shift A,Shift Y (x21),Shift S“ 
line 20 
“Shift 1,Ctrl:, SUPER SNAKE 
TRAPPER, Ctrl :,Shift" 
line 25 
“Shift D,Shift T(x21),Shift F’ 
line 30 
“Shift J. BY ROBERT DUNCAN, 
Shift J’ 


line 55 

“Shift J” 

line 60 

“Shift J‘ 

line 700 

“Shift J(x2)"Shift J(x2)" 

line 710 

“Shift J(x2)"“Shift J(x2)" 
R. Duncan 
Crafers SA 


ho A 


VZ200/300 PROGRAMS 


OKE 30744,1:CLS 
PRINT@292, "HIT ANY KEY TO CONTINUE" 
COLOR RND(6)+2:PRINT@36, " 7 
PRINT@68,* SUPER SNAKE 4 TRAPPER " 
PRINT@100, " 2 spaces . 
PRINT@167," BY ROBERT DUNCAN °* 
PRINT@203, "(19/12/84)" 
RRINT@292, * . "sSOUND 15,1 
K$=INKEYS: IF INKEY$=""THEN 10 
PRINT@356, "TYPE IN PLAYER 1'S NAME” 
COLOR 3:PRINT@423,3;: INPUT S®:PRINT@423," " 
PRINT@371,"“2":COLOR 4:PRINT@455, 3: INPUT T#:PRINT@455," " 
PRINT@294, “PRESS <<S>> TO START" 
SOUND 15,1:SOUND 16,1 
K#$=INKEYS: IF INKEYS<>"S"THEN 75 
US=37500: VS=37500 
CLS:MODE(1):COLOR 2:FOR A=0O TO 127:SET(A,0):SET(A,63) :NEXT 
AZ=3750:FOR A=1 TO 62:SET(0,A):SET(127,A) :NEXT 
FOR A=1 TO 62:SET(0,A):SET(127, A) : NEXT 
WE=L72X=172Y=110:Z=172:Wi=1:X1=0: Yi=-1:Z1=0 
AZ=AZ-1:COLOR 3:U=(INP (43) AND 31) 
IFU=15 THEN X=RND (62) :W=RND (126) 
IF U=30 THEN W1=0:X1=-1 
IF U=29 THEN Wi1=0:X1=1 
IF U=27 THEN Wi=-1:X1=0 
IF U=23 THEN W1i=1:X1=0 
IF U=26 THEN Wi=-1:X1=-1 
IF U=25 THEN Wi=-1:X1=1 
IF U=22 THEN Wi=1:X1=-1 
IF U=21 THEN Wl=1:X1=1 
W=WtW1isX=X+X1 
IF W=Y AND X=Z THEN 300 
IF POINT (W, X)=2:US=US-AZ:N$=S$: GOTO 400 ELSE160 
IF POINT (W,X) =3: US=US-AZ:N®=S%:GOTO 500 ELSE 165 
IF POINT (W, X) =4:US=US-AZ:N$=S%: GOTO 600 ELSE 170 
SET(W, X) 
COLOR 4:V=(INP(46) AND 31) 
IF V=15 THEN Y=RND(126) $Z=RND(62) 
IF V=30 THEN Y1=0:Z1=-1 
IF V=29 THEN Y1=0:Z1=1 
IF V=2?7 THEN Y1=-1:Z1=0 
IF V=23 THEN Yi=1:Z1=0 
IF V=26 THEN Yi=-1:Z1=-1 
IF V=25 THEN Yi=-1:Z1=1 
IF V=22 THEN Yi=1:Z1=-1 
IF V=21 THEN Y1=1:Z1i=1 
Y=Y+Y1:Z=Z+Z1 | 
IF W=Y AND X=Z THEN 300 
IF POINT (Y,Z)=2: VS=VS-AZ:N%=T#$:GOTO 400 ELSE 240 
IF POINT(Y,2Z)=4: VS=VS-AZ:N€=T$: GOTO 500 ELSE 245 
IF POINT(Y,Z)=3: VS=VS-AZ:NS2=T$: GOTO 600 ELSE 250 
SET(Y,2Z) 
GOTO 120 
MODE (0) :CLS: VS=VS-AZ!:US=US-AZ 
PRINT@38, "YOU HAD A COLLISSION" 
GOTO 700 
MODE (0) :CLS: PRINT@32,N%3", YOU HIT THE WALL"“:GOTO 700 
MODE (0): CLS:PRINTG@32,N$3",YOU HIT YOUR OWN TAIL"“:GOTO 700 
MODE (0): CLS: PRINT@32,N%3",YOU HIT THE OTHER SNAKE“:GOTO 700 
COLOR 3:PRINT@203," "“s;:PRINTUSING"HHHHH, ";US;:PRINT" “ 
COLOR 4:PRINT@267," “$SPRINTUSING"HHHHH,";US3: PRINT“ " 
IF VS<1 AND US<1 THEN PRINT@362, “IT IS A DRAW":GOTO 760 
IF US<1 THEN PRINT@362,3T$}" WON":GOTO 760 
IF VS<¢1l THEN PRINT@362,3S%5" WON": GOTO 760 
FOR A=O TO 3000:NEXT:GOTO 105 | 
PRINT@455, “ANOTHER GAME (Y/N) ?" 
K$=INKEY#: IS=INKEYSS IF I%="Y"*THEN RUN ELSE IF I%¢>"N“THEN?770 
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VZ200/300 PROGRAMS 


WORM DQ HHHKHKHHKKEKHHEKERKKKRKKREERE 

1 °* WORM * 
from one side of the screen to 3x V7—-2200/2309 * 
the other without hitting the 4 7% BY IAN THOMPSON * 
dots, the walls, or your own tail. 7 IEEE EEE ETE TEE EEE 
if you do manage to reach the a -? 
other side, bonus points are 9 GOSUP 1200 
awarded before proceeding to a 1@ CLS:POKE 30744,0 
new frame. 3Q Ut="Q" 2:0S="A"* = L$="M" = RS="," 

I. Thompson ae 
49 SC=0 
Collaroy Plateau NSW aS Sele ves Ae 


5@ MODE(1):COLOR 3,1:2REM — CHANGE TO COLOR 3,0 FOR B&W MONITOR 
6@ FOR A=1 TO 1272SET(A,@) =SET(A,63) =NEXT 

7@ FOR A=0 TO 63°SET(@,A) =SET(127,A) =NEXT 

80 FOR A=111 TO 127:COLOR 4:SET(A, 63) =NEXT 

85 COLOR 3 

90 FOR A=1 TO 45:SET(63,A) =SET(95,A) ?SET(79,A+18) 
100 SET(47,A+18) ?-SET (24,4) >SET(111,A+18) =NEXT A 
110 AS=INKEYS:1IF AS=RS THEN X1=1:Y1=0 

120 IF A$=O0O% THEN X1=@0:Y1=1 

130 IF A$=L% THEN X1=-1:Y1=0 

140 IF AS=US THEN X1=0:Y1=-1 

17] X=X+X1L i VY=V¥+VYiztIF POINT(X,Y)=2 THEN 300 

180 IF POINT(X,Y)=4 THEN 380 

192 IF POINT(X,Y)=3 THEN 359 

“20 SET(X,Y) 

210 SC=SC+1 

220 COLOR 2:SET(RND(127),RND(43)) 

29@ GOTO 119 

309 SOUND 25,6 

302 CLS: PRINTAIS, "FRAME NO." 5Z:2PRINT 

303 PRINT"YOU HAVE PEEN DESTROYED" 

3@5 PRINT 

31@ PRINT"SCORE:" 5SC 

312 PRINT?®IF SC>=HSC THEN HSC=SC 

315 PRINT“HIGHEST SCORE:"5HSC 

320 PRINT: INPUT" ANOTHER FRAME (Y/N)" 5A%: IFAS$=" Y" THENZ=Z+1 2: GOTO4Q 
33@ IF AS="N" THEN CLS*®PRINT @ 237,"BYE!":END 
340 GOTO 300 

350 SOUND 25,6:CLS:PRINTQ32,FRAME NO. "Z;5 

352 PRINT:PRINT 

355 PRINT"YOU HIT YOUR OWN TAIL " 

360 PRINT" YOU HAVE PEEN DESTROYED" = PRINT: GOTO310 
380 CLS:SOUND3O, 7:PRINT:PRINT"5@@ POINTS BONUS"* :SC=SC+5@@:FORA=1TO 5a@@ 
390 NEXT A=:GOTO 45 

1000 CLS:PRINT@A75," WORM ”" 

1010 PRINT@225," IAN THOMPSON, COLLAROY PLATEAU" 
1020 FOR I=1 TO 190@:NEXT I 

1030 CLS:PRINT"THE IDEA OF THIS GAME IS TO MOVE"; 
1035 CLS:PRINT"FROM ONE SIDE OF THE SCREEN TO" 
1040 PRINT“ THE OTHER,AND INTO THE RED LINE.” 

1950 PRINT"ONCE YOU HIT THE RED LINE YOU" 

1060 PRINT“GET 50@ POINTS BONUS AND YoU" 

107@ PRINT"START A SECOND FRAME." 

1980 PRINT:PRINT" THE DANGERS ARE THE WALLS, THE" 
109Q@ PRINT"DOTS, AND YOUR OWN TAIL." 

11290 PRINT@482,"PRESS <RETURN> TO CONTINUE"; 

1105 INPUT As 

1110 CLS:PRINT@72, "DIRECTION KEYS" 


1120 PRINT@139,"Q = UP" 

113Q@ PRINT@203,"A = DOWN" 
114@ PRINT@267,"M = LEFT" 
115@ PRINTA331,", = RIGHT" 


116@ PRINT@482,"PRESS <RETURN> TO START"; 


1170 INPUT A$ 
1180 RETURN 
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DOGFIGHT 


You are in a plane and must en- 
deavour to shoot down another 
plane. Using the arrow keys, you 
position the target plane in the 
dead center of the sights. You 
shoot with the Z key. 


I. Thompson 
Collaroy Plateau NSW 


VZ200/300 PROGRAMS 


“ones! 


“* 
"* 
° & 


OONGUARHUN KS 


EES ESHECERHKABEALS EERE REPELS 


DOG FIGHT * 
FOR 8K VZ-200 * 
BY IAN A. THOMPSON * 


” FETE IE HE IEE IE TE HE TEE TE IE TE HE EE TE HEE HE HEE HE HEE 
CLS:SOUND 25,6:PRINT@124," DQG FIGHT _" 


PRINT@225,"ITAN THOMPSON,COLLAROY PLATEAU" 
PRINT@449, "INSTRUCTIONS (Y/N) “3 

INPUT ANS 

IF LEFTS (ANS, 1)="Y¥" THEN 1500 ELSE 10 


10 SC=0:ML=0 

20 MODE (1):COLOR 3 

30 FOR K=O TO 127 

490 IF K>63 THEN 60 

SO IF K>24 AND K<40 THEN SET(50,K)sSET(78,K) ELSE SET(64,K) 
60 IF K>49 AND K<79 THEN SET(K,25) :SET(K,39) ELSE SET(K,S2) 
79 NEXT: X=RND(123)+1:Y=63:COLOR 4:GOTO 140 


RESET (A, 4) :RESET (A+1,4) :RESET (A-1,4) 
RESET (A+2, 4) : RESET (A-2,4) : RESET (A,Y-1) 


=Y¥-1:IF Y=1 THEN 200 


SET (X,Y) :SET(X+1,Y) : SET (X-1,Y) 
SET (X+2,Y) s SET (X-2,Y) :SET(X,Y—-1) 

RESET (X,Y) s RESET (X+1,Y) s RESET (X—-1,Y) 

RESET (X+2,Y) s RESET (X-2, Y) s RESET (X, Y-1) 

GOSUB 1000 

GOTO 110 

ML=ML+1:IF ML=10 THEN 210 ELSE 20 

CLS 

PRINT: PRINT"YOU SHOT DOWN";SC,"OUT OF 10 PLANES" 
PRINT:PRINT:PRINT"ANOTHER GO"; 


INFUT ANS 
IF LEFT# (ANS, 1)="Y" THEN RUN ELSE 260 


CLS:PRINT“ THANKS FOR THE GAME, BYE!": END 


A=x 
IF INKEY$="," THEN 1050 

IF INKEY$="M" THEN 1070 

IF INKEY¢="Z" THEN 1100 

RETURN 

X=X+2:IF X3>125 THEN X=125 

RETURN 

X=X-2:IF X<2 THEN X=2 

RETURN 

SOUND 15,2 

FOR K=34 TO 64 STEP 2 

SET (K,96—-K) : SET (127-K, 96-K) 

NEXT 

FOR K=34 TO 64 STEP 2 

RESET (K,96-K) : RESET (127-K, 96-K) 

NEXT 

IF X<67 AND X>61 AND Y<34 AND Y>3O THEN 1200 

SOUND 1,2 

RETURN 

SOUND 29,2;31,2 

FOR T=1 TO 3 

FOR K=1 TO 20 

SET (RND (10) +59, RND (10) +27) 

NEXT 

FOR K=1 TO 30. 

SET (RND (30) +49, RND (30) +17) 

NEXT 

NEXT 

SC=SC+1:ML=ML+1:IF ML=10 THEN 210 

GOTO 20 

CLS:PRINT"THE GAME IS CALLED DOG-FIGHT, " 

PRINT"AND AS THE NAME SUGGESTS, YOU AREIN A PLANE AND"; 
PRINT" MUST ENDEAVOUR TOSHOOT DOWN ANOTHER PLANE.” 
PRINT"SIGHTS APPEAR ON THE SCREEN, ANDYOU MUST MOVE YOUR"; 
PRINT" PLANE (USING THE LEFT AND RIGHT ARROW KEYS) TO "“s 
PRINT"GET THE TARGET FIL ANE NEAND IN THE CENTRE AF THE 'y 
PRINT" SIGHTS. " 


PRINT" YOU SHOOT WITH THE ‘Z‘KEY." 
PRINT"YOU’LL BE GIVEN 10 PLANES TO " 
FRINT"SHOOT DOWN, AND AT THE END TOLD" 
PRINT"HOW MANY YOU MANAGED TO GET. YOU"; 
PRINT"WILL THEN BE OFFERED A NEW GAME. ": 
PRINT" PRESS <S> TO START THE GAME." 

IF IMNKEYS<>"S" THEN 1630 

IF INKEY#="S" THEN 10 


BEZERK 
Bezerk is a games program writ- 
ten for the VZ200/300. The idea is 
that when in playing mode you 
move a dot around the screen 
running through the red dots. If 
you do not reach the red dots in 
time and you touch them they 
will turn yellow and you die! Do 
not touch the walls or anything 
yellow. At the end of the game 
you will be given a bonus point 
for every red dot you ran over. 
R. Banks & M. Saunders 
Mackay Qld 
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This exciting prog‘am written for 
the VZ200/300 re: uires a good 
deal of skill. Weave yourself in 
and out of the yellow dots, avoid- 
ing them and the walls, until a 
hole appears in the top middle of 
the screen. You are only allowed 
to go back on yourself a few 
times, so beware. 

R. Banks & M. Saunders 

Mackay QLD 


ENCODE/ 
DECODE 


Encode/Decode is an encoding 
and decoding program written 
for the VZ200/300. When run it 
will ask you to input a word or 
secret message. After typing in 
your secret message, on the line 
below will appear the message in 
code form. It will then ask you to 
input a secret message in jum- 
bled form which it will then de- 
code. 


R. Banks & M. Saunders 
Mackay Qld 


L Lore 
2 PORE SES es. SPORE SSE Let PORE SLeESS, 245: PORES LOSS, Sey 
7 PDS e 
‘} PHi= 301 
2 Paate Ps Sed 
» ElfenS ETS Em ot tes 
tn MODE: 1a 
2A FORARSANTOL2E? BETES SETE AS BS os HEET 
AH FORAS=S Toe: SETOGL FS oO SETO LE? AS oO HET 
A) OL? : AE THEE Yi Se Se EM: DP AGS "" THESE 
4% PLA=Q: PLU 6I 
SA TRA % "Wl" THEAPLS = 1 
BA TRAE="'S" THEMPLS=1 
rr] TFAT="E" THEHPL A 1 
aS ae: | HEMEL: fd 
WOOP ASRS PLS PY sey ete lit: 
— [FEMS CBTHEMEM: 
me TRROTHTS? FY ve 
a PEP Ets pouins ey 
4 


eS THEMGOTI, 1 ee 

oe eee ers LOE i: EME 

§ SETAC Ph Pye. COL cPs os ocean | OM I Ge EVE ecb 
2 Sr te “THEME R THT eHUE SCOPE 1S" St S0 FAR... ": POP o-S: GoTo 
2A ES eEC HAL: [FE CH. EMS THEA 
Fr See ry 

& TR RAD Ae o> PHS THEMES EPPA Foote 

¢ IFEMS- Rendle s deat 5 Sateage wo RESET 62.59: RESET( 64.55 

MW OTFROTHT! EAS EWS oo D1 THEHRESETY ERR EV OELSESET( ESE EY 3 
An GapieLes 
erie PoP T={ TOA: WEST oop 

We BT aE: sti: TFETS?SeTHEH Las 

AS SC=SC-PT 
Me, IF St HITHER Sk 
La erred Te 


i 
7 


— 

a. 
—_ 
— 
_’ 


H 
t 


_— 
om 
Pe 


THPUT ETE HORS GAG PRE TATLEP The Afi do AER PER 

FOR T=270OLEN¢ ABO BRS AT AB Dod be aed DPE SST HERS ets 
PRIN TCHRRE Bo APB MEST PEDTAT GOTO Lee 

1am THPUT"EMTER HOR" Ame PE LHTLEP THe AD Lo ReERSle Pit 

118 FORT=2TOLEHS Aiko B= Rele AT De Fit. Tob oe Ad oe TPE OS THEME SE ice 
158 PRIMTCHE: Boas  AeEASCO MT Dene pti. To 1 oo HERAT REDHAT GOTO 6 


= 
Caer] 


a Tt — 
= 
Ls 


see 
| 


or... 


87 


88 


a ag 


VZ200/300 PROGRAMS 


T=717 85S 


A GOTO es 


1 
RESTORE FILE 14 CATAZL ag ee AL.ES. COFFS, 1AVEL, PE. FE: HEN SAAS =E FR EC 
This is probably the most useful 20 DATAZR, FS. BU. 08, 20,61, 22,76, FE, GB, 26, EB: 22, SE. FE, OH, 26. ES. 22 
utility program ever made for the SG DATAS2.-F9. 72.36. 6A.FE.O0,Ch. PA, 1.02.66, 68 EMD | 
VZ200/300. After running out this 4c READE: [FAS "EHD" THEHPORES 62 82: POR = IGE, 121°EHE 
program and typing in new, start Se ASAE! A -45: TFASSTHEHASA-P 
typing in a program. Now type in BQ ESASCSRIGHT# AS. 1 ood: TRESS THEME E- 
new to erase the memory; type in YA PORET AF Le+R: Del+) GoTo 
PRINT USR(0) and hey presto your 
program is back in memory. This 
program is excellent if you're the 
type of person who gets angry 
with their programs. 
R. Banks & M. Saunders 
Mackay Qld 
CATCH 1 HESLIGRO RD |. 
: , = MODE 13 
A lot of skill and patience is re- 2 COLOR FORARSOTOLE?  SETC AM. Go: SETORE. 62 0: WENT FORAN=ETOBS 
quired to use this program. You 4 SETCR.AN GETE LOT Ate HET 
must trap the other moving dot 5 BY a2: MYN=EPMES 126: Oh ene easy 
into one spot on the screen. To . jaar! eT |e 1 ye RHEM ee 
do so use the following com- 1861 AS=RHO oo: FORGGY=1 ORME 2a 
mands — 1m - Te 4B 
W — up 88 GhEHh Hey 
10168 
ee : {G28 MueNtiohd GOTO 16 
: LOSE SASsaAc 1) GOTO) Lae 
L — right irs LO4e Veet GOTO Lee 
E, R — to turn yourself visible 1O58 v= h-1 
and invisible. 1160 TFPOINTE Xi V8 IBV RSH NeeGh GOTO 
Please note that the designers of fii CL OL UR Bag ee oa ee OR? PSETE ao VS 2 HEAT GOTOLEGY 
this program takes no responsi- AGG ASTe: OU PRES LE: Fe PEENME 26624 00R 192 i= 2 THEN 
bility if you hit your computer 4016 1 -PEEH( 26751 2ORIS2, Gest ae 
through frustration and anger! 4020 TRC RaANDS Gk la=a Ta) GOT Ge 
QQ TRe ES AHDS seas lee yh oe ROTO 
R. Banks & M. Saunders 466 [FC PEEKE 2a27S 00R 192 1255 THEHAOSCEL SER NSPEEKE 2227S RL Se 
Mackay Qld 4841 [FC RSANDS I=6v1e="1e-1: GOTO4EEo 
id TFOkKe SAH DS 2 s=E- ced: GBOTCOFEB EI 
$642 TROR™SAMoI “Bee : LOTTA 
45h IRC PEEKS 20077 SANDE raft eet’ pee 
$ae0 TRPMURS LORM TS  LenorR yl LORY a eA eR OO PE Be 
4070 IFE%=1THEHAe ae 
shen TPROIWTS His, ee ee as 
ASG COLORS SETS MLR Y IS oo COLORES Sete CL VULs GOTO T EIS 
Aare MTR a, 17 tts. 1. Mt. BSP. i Pe, met 
EVA ERA =O Ee [eet TR REE RY FL: ae Tre THEMES nt 
mrs HEMT Erp 
a el LFFEERS AX chi se SS THEMPR IMTS 
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The aim of the game is to steer 
your man around the screen 
using the cursor control keys. For 
each dot that is gobbled you 


score one point. You score five 


Steve Molloy 
Mittagong NSW 


points for each square gobbled. 
A round ends every time you 
score 200 points. If you hit a 
mine the game is over. 


a N WW \/ ‘\ Vv an 
on Y + + + + : 
qm oO A A A A 

» Wh A A A A yO 
Gg @ a8) 0 ts) on now 
| oa “4 “i 4 i 

Y Ww W WW Ww dl 
FO os # ¥ ¥ # Whoo¢ 
xVM: & & Y 4 = ff 
We gp xrteA IANA Ih rt -5 o 
Zoo +s O M O Ff O FT O FT = i" 
af} of if oO ff O Tf O Ff © do 
su OZ *# &- ££ fF &# F &# F IL F 
Bere @Togcara ogo uo o 
‘Ye of vy O vw Of w O vw © O30 nA 
ow fo + uw + ew $F$ ww + wm OM LS 
ron Z A A A ek Ae aA KR AZ 

Oo av A | A + A | A +¢erC | 
eM: oii? oe. Roo oR De Oe OD 8S 
Oo NF « I ow tow to ow PRR O Ff 
Oo YW vw X vw KX vw} Ww FURS = 
= OY # » HH we HH wm HH un KOE 
HH Wu NYE MONEMANEMONEMALZar Z 
ZF CRU LTA Lan lan Gla niin. 
rh AXHVOGOVOGMVOHHOCOAL-vHIe 
oY UWIDHRFADIrFIADI FID roOraewe 


oh we ZIKINMHOUMHONN HON Ro To 
muha TTHOOTMHOOTMOoOTMOAge aa 
(QaMs OvAOOvAgOvad diva tyvyonhiles 
ons OQBewan oLAnvabAnab Aw Al «at os 
PH DRS ATTA OD AHADHHODSLTET 
XY Cnr Yednt aN Yura Na -oeye 
(OSI TMOReVODHeVOODHe#vGaHevOxXoOoTOA 
‘MONHDTHBDDTH# ADT He DIT eo A AY 
i a a A A A A a 
M2 ORQWlroOdWwToOowIToOowTobwioabna 
POrFbe MOO OOOO MMOOONDOOHOOND 
© £ WN I i I I 


RE TUR 


SIOSUB BH 


¢ ra 


Qe Z Nea 
(Yas 
O#*# | nom 


WIe OW 


QE TRY YS 
IWC oO 
OOH It) a 


SREOQNHTHANME TILER ODEO AAMTON OR OTe 


MEM  MTETTTT ITT ITT TCHMNENMNTANNnhoez over oon 


OO 


? 


COLOR > 


< 
& 
S&TOvSTEP-—-1 


hak | 


KINO oo 
t-te oo 
ZINHO 
atiakt 


UT « Or a 
nalon 


a 
row) » 
Oi iM os 
leone 
Ne O32 
Yui a 
QOJjJ0O0 
LWOOGh 


AM To 


+ 


1LOsSTEP 4 


F 


WRSORX, Ws 


— 
—_ 


= 


~~ =F Tm 


FOr 


89 


SHARP PROGRAMS 
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MEMORY MAPPER 


This program allows you to ex- 
amine a range of memory loca- 
tions and to display the contents 
in both hexadecimal and charac- 
ter format (characters with ASCII 
values less than 32 are sup- 
pressed as they can do strange 
things to the display). The start- 
ing address of each line of dis- 
play is shown at the left of the 
screen and byte numbers at the 
top and bottom of the screen. 
128 characters at a time are dis- 
played. 

After each screenful, the pro- 
gram pauses for a key depres- 
sion. Q terminates the run, R al- 
lows you to specify a new range, 
and another key continues with 
the present range. Once the 
range is exhausted, the program 
stops. 

This program is useful for fer- 
reting out secrets of the ma- 
chine. Undocumented keywords | 
have found are: 


POSTAD — (post-number) re- 
turns the address of the specified 
post number. Movement of a sin- 
gle sprite can be cancelled selec- 
tively by setting the returned ad- 
dress to 0 with POKE. This ad- 
dress is actually the start of a 5- 
byte sprite control table. 
RDSTS — a function; its purpose 
I have not worked out. 
RETL — another function with a 
purpose | have not worked out. 
TERMC, — a function with a 
value of 13, the ASCII value of an 
end-of-line (RETURN) character. 
If anyone out there knows 
what RDSTS and RETL do, please 
write in and share the knowl- 
edge! 


H. Gunter 
Hillary WA 


10!Memory Mapper 
20 print "UT":FCOL 15:BCOL 4:REM sneetyeontvel U and T 
30 REPEAT 


40 GOSUB SGET_ RANGE 

50 CONSOLE 0 

60 FOR ADDRESS = LOW TO HIGH STEP 128 
70 GOSUB SPRINT PAGE 

80 NEXT ADDRESS 

90 PRINT CURSOR(0,23) ;"X"3:REM ener controt ~ 
100 LOCATE 0,21 

110 CONSOLE 1 

120 UNTIL AS<>"R" AND AS<>"r" 

130 END 

140SGET_RANGE 

150 CLS 

160 PRINT CURSOR(8,0);"Memory Mapper" 

170 PRINT 

180 ON ERROR GOSUB SLOW_ERROR 

190SGET_LOW 


200 INPUT "Start address; ";LOW 

210 ON ERROR GOSUB SHIGH_ERROR 

220SGET_HIGH 

230 INPUT " End address; ";HIGH 

240 ON ERROR GOSUB SOTHER_ERROR 

250 IF LOW>HIGH THEN TEMP=LOW: LOW=HIGH: HIGH=TEMP 

260 RETURN 

270SLOW_ERROR : RESUME SGET_LOW:SHIGH_ERROR : RESUME SGET_] HIGH 

280SPRINT | PAGE 

290 GOSUB ; SSETUP_PAGE 

300 GOSUB SPRINT MEM : 

310 PRINT CURSOR(0,23);"Q=abort; R=new range; other=continue"; 

320 REPEAT:REM flush keyboard buffer 

330 AS=INKEYS 

340 UNTIL AS="" 

350 REPEAT 

360 AS=INKEYS 

370 UNTIL AS>"" 

380 IF AS="Q" OR AS="q" OR AS="R" OR AS="xr" THEN ADDRESS=HIGH 

390 RETURN 

400SSETUP_PAGE 

410 CLS 

420 TL=31—-LEN(NUMS(ADDRESS) ) 

430 PRINT "Memory Map";CURSOR(20, si nineauticeunceuins 0) sNUMS( ADDRESS) ;" 
HEXS (ADDRESS) 

440 PRINT "Range ";HEXS(LOW);" to ";HEXS(HIGH) 

450 TA=ADDRESS+127 

460 TL=31—LEN(NUMS(TA) ) 

470 PRINT CURSOR(22,1);"to";CURSOR(TL,1);NUMS(TA);" = ";sHEXS(TA) 

480 GOSUB SBYTE_LABEL 

490 PRINT 

500 PRINT RPTS(38,"—"):REM graphics f 

510 FOR C=0 TO i5 
520 PRINT " 
530 NEXT 

540 PRINT RPTS(38,"—"):REM graphics f 
550 GOSUB SBYTE_LABEL 

560 RETURN 

570SPRINT MEM 

580 S=ADDRESS :C=0:R=0 


|":REM 5 spaces + graphics r 


590 REPEAT 

600 A=PEEK(S) 

610 IF C=0 THEN PRINT CURSOR(0,R+R+5) 3"&" sHEXS(S); 
620 IF A>31 THEN PRINT CURSOR(C+C+6 ,R+R+4) ;CHRS(A) 
630 PRINT CURSOR(C+C+6,R+R+5) ; 

640 PRINT RIGHTS(HEXS(A) ,2) 

650 S=S+1 

660 C=(C+1)MOD 16 

670 IF C=0 THEN R=R+1 

680 UNTIL S>ADDRESS+127 

690 RETURN 740 FOR A=0 TO 15 
7OOSOTHER_ERROR:PRINT ERR;ERRL: END 750 PRINT RIGHTS(HEXS(SEED) ,1)3" "3 
710SBYTE_ LABEL 760 SEED=SEED+1 
720 PRINT "BYTE |";:REM graphics r 770 NEXT 

730 SEED=ADDRESS 780 RETURN 
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USER GROUPS 


User Groups must be the biggest source of information for computer users of all levels 
of experience, as well as for those just thinking about buying a computer. Go along toa 
meeting — see what others have achieved with their machines. 


Australian Capital Territory 


ACT PC Users’ Group, Nick Hammond, 
PO Box 188, Parkes 2600. Meetings last 
Monday each month at Reid Tafe, 8.00 
onwards. (062) 86 1102. 

ACT VIC-20 Users’ Association, Chris 
Groenhout, 25 Kerferd St, Watson 2602. 
Meetings first Monday each month at 
Boys’ Grammar Scout Hall, Red Hill, 7.30 
onwards. (062) 41 2316. 

Albury Wodonga Apple User’s Group, 
Jenny Scott (secretary), (060) 24 3225 or 
Don McLennan (president), (060) 46 028; 
meets second Wednesday every month 
at Wodonga High School at 7.30 pm. 
ATARI, Chris McEwan, co-ordinator, 
ACTARI, PO Box E112, Canberra 2600, 
(062) 88 7861. 

ACT Apple User Group, S. Nielsen, PO 
Box 1231, Canberra, ACT, 2601. 
Australian ZX80 Users’ Association 
(AZUA), David Vernon, 50 Waller Cres- 
cent, Campbell 2601; for ZX81, ZX Spec- 


trum and Sinclair OL owners. Meets on | 


the last Wednesday of every month at 
the Woden Valley High School library at 
7.30 pm. 

Barrier MicroBee User Group, Michael 
Quinn, 69 Eyre St, Brocken Hill, 2880. 
Meets the last Sunday of every month at 
the town library. 

Canberra ACT Sirius User Group, Jim 
Bland, (062) 81 2824, (062) 81 2832. | 
Canberra Compucolor Club (CCC), 
Meets 7.30 on first Sunday of every 
month at the offices of Digital Equip- 
ment, 28 Lonsdale Street, Braddon ACT. 
Canberra Microbee Users’ Group, 
Meets 7.30pm on first Tuesday of every 
month at Woden Valley High School Li- 
brary. PO Box 227, Weston Creek, ATC, 
2611. (062) 71 6081. 

Canberra Micro-80 Users’ Group, 
Harry Cooper, 113 Owen Dixon Drive, 
Evatt 2617; meetings third Monday each 
month, 7.30 pm in the large theatre, ‘J’ 
Block, Reid TAFE, for System 80, TRS80 
and similar. (062) 58 3700. 

Canberra NEC Users’ Group, Mal 


Smith, PO Box 173, Belconnen 2616; 
meets first Tuesday each month at Main 
Conference Room, CSIRO Headquarters, 
Limestone Avenue, at 7.30 pm. (062) 54 
1614. 

Canberra Osborne Group, c/o Geoff 
Cohen, PO Box 136, Kippax 2615, (062) 
54 7608. 

IBM User Group, Ron Pollack (presi- 
dent), PO Box 5010, Sydney 2001. Meets 
third Monday of every month at the Esso 


Training Centre Auditorium Forum Cen- 


tre, 35 Clarence St, Sydney, at 5.30 pm. 
(02) 29 7033. 

Kaypro User’s Group (ACTKUG), 
meets on the third Thursday of each 
month from 6.30 pm in the J Block thea- 
tre, Canberra TAFE, Constitution Ave- 
nue, Reid. Contact Des Ireland, on (062) 
47 5330. 

Micsig, Registrar, PO Box 446, Canberra 
2601. 

PC Users’ Group (for users of IBM PC 
and similar machines); meets on the last 
Monday of each month at.8 pm in the 
main theatre, Building J, Canberra TAFE. 
Contact address: PO Box E188, Parkes, 
ACT 2600. 

Sirius/Apricot User Group, M J Sim, 
253 Hindmarsh Drive, Rivett 2611; meet- 
ings 7.30 pm third Tuesday each month, 
88 Wollongong Street, Fyshwick 2609. 


New South Wales 


Albury-Wodonga District Microbee 
User Group, Eric Eulenstein, 202 Kooba 
St, Albury 2640, (060) 25 1601. 

APF Users’ Group, Norm McMahon, 
288 Kissing Point Road, Turramurra 
2074, (02) 44 2645. 

Apple Team Australia, 5 Walpole Place, 
Wahroonga 2076; (02) 48 1018. 

Apple Users’ Disk Exchange Club, 
Phillip Donnadieu, Flat | 8-10 Lancelot 
Street, Allawah 2218; (02) 579 4547. 
Apple Users’ Group, Colin Rutherford, 
PO Box 505, Bankstown 2200; meets 6.30 
pm second Monday of each month 
(Tuesday after public holidays) at Syd- 


ney Grammar School, Stanley Street, 
Sydney. (02) 520 0926. 

Atari Computer Enthusiasts, Tony 
Reeve, PO Box 4514, Sydney 2001. 
Ausborne, The Secretary, PO Box C530 — 
Clarence Street, Sydney 2001; meetings 
third Wednesday each month at 6.30 pm, 
at Burwood RSL, 96 Shaftesbuyr Road, 
Burwood. (02) 95 5378. Bulletin board: 
(02) 439 7072. 

Ausbug, Stephen Ford, PO Box 62, Lon- 
donderry 2753. 

Australian Amiga User Association, 
provides a bi-monthly newsletter, news 
and reviews on software and hardware, 
hints and tips and howtos, and public 
domain software. Post to PO Box 389 
Penrith 2750, or phone (047) 514 143. — 
Banana Coast Microbee Users Group, 
Ken Darby, 168 Sawtell Road, Toormina, 
2452. (066) 531 439. : 


Bay Microbee Users Group, wayne 
Herring, Box 308, Nelson Bay, 2315. 
Bankstown-Fairfield Computer 
Group, Arthur Pittard, 36 Hubert. Street, 
Fairfield 2165; meets 4th Wednesday of 
the month at Canley Vale High School, - 
Prospect Road, Canley Vale at 7 pm, (02). 
72 2881. . 
BEDBUG, Chris Fallshaw, Eltham Col- 
lege. . 
Blue Mountains Microbee User Group, 
meets first and third Friday of the 
month, at 7.30 pm at the Springwood 
Neighbourhood Centre. All correspond- 
ence to Joe McKay, Secretary, 25 Reserve | 
Avenue, Blaxland 2774; (047) 39 3154. 
Blue Mountains Homebrew Computer 
User’s Group, Eric Lindsay (secretary), 
(047) 51 2632. 

Bondwell User’s Group, Ray Richards, 
7/39 Ross Street, North Parramatta 2151, 
(02) 683 3940. 

Broken Hill Microbee Users’ Group, 
Peter Cotter, 533 Radium Street, Broken 
Hill 2800, (080) 88 1621. 

Casio PB 700 User Group, Terry Gill, 27 
Greenleaf Street, Wentworthville 2145, 
(02) 636 1652. 
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Central Coast Apple Users’ Group, 
Charles Lee, (043) 67 6845 or Mick Tier- 
ney, (043) 41 9350. Meets first Tuesday 
each month at the Central Coast Gram- 
mar School, Erina Heights from 7.30 pm. 
(043) 84 3419. 

Central Coast Microbee Club, Max 
Maughen, PO Box 36, Ettalong Beach 
2257, first Tuesday every month at Ap- 
plied Technology, West Gosford. (043) 24 
2711. 

Compucolor Users’ Group, Tony Lee, 
52 Cowan Road, St. Ives 2075, phone (02) 
449 8824. 

Cooma Microbee User Group, Phil 
Zikan, PO Box 92 Cooma 2630, (053) 52 
2756; meets on the second Friday of the 
month. 

Dataflex User Group, Roger Walker, 
(02) 699 3877. 

dBase Users’ Group, PO Box 3019, Syd- 
ney 2001; meets every second Tuesday 
each month at the Bird Cameron Train- 
ing Room, 15th Floor, Bligh House, 4 
Bligh Street Sydney at 6 pm. 

DEC Personal Computer Special Inter- 
est Group, Maggie Alexandria, DEC 
Australia, Northern Tower, Chatswood 
Plaza, Railway Street, Chatswood 2067, 
(02) 412 5252. 

Dubbo and District Microbee Users’ 
Group, John Taylor, 18 Cunningham 
Street, Dubbo 2830; meets fourth 
Wednesday each month at 7.30 pm in 
the Dubbo High School Computer 
Room. 

Griffith Computer Association, Ron 
Gauci, PO Box 425, Griffith 2680, (069) 62 
5877. 

Griffith Microbee User’s Group, Rick 
Mines, 2 Edmondson Avenue, Griffith, 
2680; meets the fourth Monday of each 
month at Neighbourhood House at 7.30 


pm. 

Hawkesbury Apple User Group, Secre- 
tary Steve Bennett; meets fourth Mon- 
day each month at 7.30 pm, Richmond 
Primary School, (045) 78 2195. 
Hawkesbury Commodore Computer 
Club, Richard Farrell, 12 Inverary Drive, 
Kurmond 2757; meets fourth Tuesday of 
each month at 7.30 pm at Neighbour- 
hood Centre, West Market Street, Rich- 
mond 2753. 

Hawkesbury Microbee Computer 
Club, Peter Christie, 9 Potts Street, Rich- 
mond 2753; workshops 7.00 pm third 
Friday, and general meetings 7.30 pm 
first Friday of each month in the Micro- 
bee Network Room, Library Building, 
Richmond High School, Cnr Penrith and 
Lennox Streets, Richmond 2753. (045) 78 
4613. 

Hitachi/6809 User Group, meets on the 
first Saturday of each month, at 2 pm: 
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contact Robert Lohr on (02) 662 4150, 
after 6 pm for locations. 

HP Desktop Computer Users’ Group, 
Dr R W Harris, CSIRO Division of Mineral 
Physics, PMB 7, Sutherland 2232, (02) 
543 3460. 

Hewlett-Packard Users Group (HPUG), 
Darren Stokes, 3 Buckley Drive, Coonam- 
ble 2829. 

Hunter Users’ Group — All Microcom- 
puters, Secretary, PO Box 39, Broad- 
meadow 2298; meets on the second 
Wednesday of each month in Room 308, 
Building W, University of Newcastle, at 
7.45 pm. Membership is primarily Apple 
I] oriented, but anyone with interest in 
micros welcome. 

Illawarra Apple Core Secretary, Chris 
Haley, 358 Cordeaux Road, Mt Kembla 
2526. Meets at 8 pm in the library of the 
Holy Spirit College Bellambi on the 4th 
Monday of each month. 

Illawarra IBM PC Club — All IBM 
compatibles, Dick Adams (secretary), 
c/o John Lysaght Ltd, Delivery Code 29, 
PO Box 77, Port Kembla 2505; (042) 75 
6721. 

Illawarra Microbee Computer Club, 
Ronald Read, 49 Beatus St, Unanderra, 
2526. Meets every 4th Monday at 7.30 
pm, Wollongong Institute of Education, 
Northfield Ave, Gwynneville; (042) 95 
1142. 

Illawarra Super 80 Users’ Group, Jim 
O'Grady, Chairman, PO Box 1775, Wol- 
longong 2500. 

Lotus Users Group (Sydney), Peter 
Philippsohn, Box 5010, Sydney 2001. 
Macarthur Computer Users Associa- 
tion, Brian Cooper, 20 Hunter St, Camp- 
belltown, 2560. Meets first Monday each 
month at Airds High School, Briar Road, 
Campbelltown 2560, at 7.30 pm; all ma- 
chines are catered for. (046) 25 1146. 
Macquarie Microbee Users’ Group, 
Brian Thompson. Meetings first Monday 
each month at Denistone East Primary 
School at 7.30 pm. (02) 85 1659 after 
hours. 

Macwest Users’ Group, PJ Lynden, 11 
Toohey Avenue, Westmead 2145. Ser- 
vices will include newsletter, bulletin 
board and public domain library. Mem- 
bership $10 per annum. 

Maitland Microbee Users Group, Ross 
Bell, 42 Redbill Drive, Woodberry, 2321. 
(049) 332 972. 

MEGS (Microcomputer Enthusiasts’ 
Group), John Whitlock, PO Box 1309, 
Chatswood 2067; meetings third Mon- 
day each month at rear of St Andrew's 
Presbyterian Church, 37 Anderson 
Street, Chatswood 2067, (02) 638 1142. 
Microbee Users’ Club (Broken Hill), 
Peter Cotter, 533 Radium Street, Broken 


Hill 2880, (080) 48 8813. 

New England Microbee Users Group, 
CSIRO, Pasteral Research, New England 
Highway, Armidale, 2350. (067) 784 000. 
Newcastle Microbee Users’ Group, 
Heather Clarke, 31 Pokolbin St, Broad- 
meadow, 2292. 

Newcastle Microcomputer Club, 
Angus Bliss, PO Box 293, Hamilton 2303; 
meetings 7.30 pm second and fourth 
Monday each month at Room G12, Phys- 
ics Building, Newcastle Uni. (049) 67 
2433. 

Nightline, is an after-hours (10 pm to 7 
am, seven days a week) computer infor- 
mation service, which provides local and 
overseas news, clues and reviews. Mainly 
for Apple users, but others are welcome. 
Offers around 20 different bulletin 
boards, and uploading and downloading 
facilities; phone (02) 528 8968. Sysop: 
Hamish Bowly. 

NSW Primary School Microbee Users’ 
Group, Mr Peter Stretton, c/- Hunters 
Hill Primary School, Alexandra Street, 
Hunters Hill 2110. 

NSW 6800 Users’ Group, 27 Georgina 
Avenue, Keiraville 2500. 

Northern Beaches VIC User Group, E 
Tuxford, 161 Barrenjoey Road, Newport 
2106, (02) 997 2467. 

Northern NSW MICC Chapter, Alen 
Hartley, Dundurrabin via Dorrigo 2433, 
(066) 57 8160. 

Open Access User Group, Steve Cook, 
Advanced Data Technology Pty Ltd, | 
Terrell Avenue, Wahroonga 2076; (02) 48 
O51 1. 

OSI Users’ Group, Nigel Bisset, (02) 
411 7142. 

Ozbeeb User Group for the Acorn BBC 
Microcomputer, Meets twice a month 
at the Australian Film & Television 
School — Open Program, 3 Lyon Park 
Road, North Ryde — second Wednesday 
of every month at 7 pm (organised talks 
and demonstrations); 4th Monday of 
each month at 6.30 pm (general meet- 
ing). Annual subscription for full mem- 
bership $10. 

PC Users Group, Janis Meyers, Box 
5010, Sydney 2001. 02) 297 033. 

Pocket Computer Users’ Club, George 
Antonijevic; for those interested in 
pocket computers, whatever the brand. 
Meetings held on the first Wednesday of 
each month at 7.30 pm at the Woodstock 
Community Centre, Church St, Burwood 
2134, (02) 683 4296. 

President Computer Users’ Group for 
owners of President and other IBM-com- 
patible PC and AT computers. Meets on 
the last Tuesday of every month at the 
Hornsby Inn, (Claude Fay’s Hotel), 29 
Florence Street, Hornsby, from 8 pm. 


Contact Raymond or Trichia Toms (02) 
456 3756, or Rick West (02) 872 4177. 
RAT Microbee Users Group, James 
Quinn, Box 207, Raymond Terrace, 2324. 
Sega Users’ Club, Jim Robinson — Pen- 
rith branch, (047) 30 1834; Jeff Wilson — 
Parramatta branch, (02) 684 4128. 
Sharp PC-1350 User Group, contact 
Bob Hamilton, (02) 639 3637. 

Sharp MZ-700 User Group, contact 
Terry Gill, 27 Greenleaf Street, Went- 
worthville 2145; (02) 636 1652. 
Sirius/Apricot User Group, Mark Dick- 
inson, Barson Computers; meets first 
Tuesday each month at 6.30 pm, Unit D, 
55 Talavera Road, North Ryde 2113, (02) 
888 9444. 

Sorcerer Users’ Group, President Mich- 
ael Mannaz; PO Box E162, St James 
2000; meetings third Friday each month 
at 8 pm in Greenwich Community Hall, 
Greenwich Road, Greenwich 2065. 
Southern Districts Commodore Users’ 
Group, Lex Toms, 3 Lucille Crescent, 
Casula 2170. Meetings first and third 
Wednesdays each month, API Hall, Cur- 
rajong Road, Prestons 2170. (02) 602 
8691. 

Sutherland Super 80 Group, Jim Traeg- 
er, (02) 525 2018. 

Sydcom 64 (C64 User Group), Philip 
Dean, GPO Box 1542, Sydney 2001; 
meets on the second Wednesday of each 
month at the Abraham Mott Hall, Argyle 
Place, Miller's Point. 

Sydney Fort Group, Peter Tregeagle, 10 
Binda Road, Yowie Bay 2228; meets sec- 
ond Friday of each month at 7.00 pm in 
the John Goodsell Building, UNSW room 
LG19. (02) 524 7490. 
Sydney Kaypro Users’ Group,. Hans 
Schneider, C/O Dr H. Schneider, Geogra- 
phy Department, UNSW, PO Box |, Ken- 
sington 2003; meetings second Tuesday 
of each month, 8.00 pm, Burwood RSL 
Club. (02) 697 4400 (w) or (02) 309 2961 
(h). 

Sydney Lotus 1-2-3 User Group, Ron 
Pollak, (02) 29 5316. | 

Sydney Macintosh Users Group, Alan 
Todhunter, Box 152 Holme Building, 
Sydney University, 2006. Meets the last 
Tuesday of the month at 6.30 pm at 
Laboratory | of the Carslaw Building, 
Sydney University. (B) (02) 736 0488, (H) 
(02) 637 6775. 7 

Sydney Microbee User Group, Ron 
Taylor (secretary), (043) 41 5251 after 7 
pm; PO Box C233, Clarence St, Sydney 
2000. Meets third Saturday each month 
from | to 4.30 pm, in the assembly hall 
of Strathfield Girls’ High School, Albert 
Road, Strathfield, (02) 810 4758 (after 
7.30 pm). 

Sydney Multitech Owners Group 
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(SMOG), queries addressed to Marcia 
Wilson, PO Box 312, Darlinghurst 2010. 
Forming a Sinclair QL Users Group, 
Vadim Kuchin, Box 729, Parramatta, 
2150. 

Sydney TRS80 Users’ Group, meetings 
second, third and fourth Saturday of 
each month at Botany. (02) 666 4716 bh. 
System 80/TRS-80 & Colour Computer 
Users’ Group, Jim Fisher, 37 Fairburn 
Avenue, West Pennant Hills 2120. 

TAG — The Access Group, Bob Dolton, 
PO Box 943, Orange 2800; for Access and 
Actrix users. 

The Great Western Computer Users’ 
Group Jim Graham, PO Box 210, Went- 
worthville 2145; (02) 636 9219. All micro 
users are welcome. A 40-minute begin- 
ner’s session is held at the start of each 
meeting. The club meets on the first 
Tuesday of each month, at 8 pm. The 
Morrow User Group Alan Stern, (02) 
750 8274; meets on the fourth Wednes- 
day of every month at the Woodstock 
Community Centre, Church Street, Bur- 
wood at 7.30 pm. 

TI Sydney Home Computer Users’ 
Group, PO Box 149, Pennant Hills 2120. 
Tuggerah Lakes Computer Users’ 
Group, Frank James, 125 Woolana Ave- 
nue, Budgewoi 2262. Meetings second 
Thursday each month at Old Primary 
School, Wyong, at 6.30 pm. (043) 907 
339. 

Wagga Microbee Users’ Group, John 
Simmons, 47 Undurra Drive, Glenfield 
2650. Meetings first and third Tuesdays 
each month in the Tolland-Glenfield 
Neighbourhood Centre at 8.00 pm. (069) 
31 1302. 

Western Sydney PC and Compatible 
User Group, Ben Sharif, (047) 36 4825. 
Meets on the third Sunday of the month 
at 1.30 pm, 27 Cosgrove Crescent, Kings- 
wood 2750. 

Wizzard User Group, John Mifsod, 150 
Bouganville Road, Blackett 2770, (02) 
628 0801. 

Wizzard Software Exchange of Austra- 
lia, John Pospisil, 3/7 National Avenue, 
Bulli, 2516. (042) 67 4518. 
ZX-Spectrum Users’ Club, Craig Ken- 
nedy, PO Box 466, Epping 2121. 


Victoria 


Albury Wodonga User’s Group, Jenny 
Scott (secretary), (060)24 3225 or Don 
McLennan (president) (060) 46 028. 
Meets second Wednesday of every 
month at Wodonga High School at 7.30 


pm. 

Apple Users’ Society of Melbourne, D 
Halprin, PO Box 43, Forest Hill 3131, (03) 
387 3221. 

Atari User Group Melbourne, Kelvin 


Eldridge, PO Box 173, Reservoir 3073. 
Australian Forth Interest Group, Tony 
Latermore, PO Box 704, Sale 3850, (051) 
44 2011. 

Australian North Star Users’ Associa- 
tion, PO Box 194, Wangaratta 3677. 
Ballarat Computer Users’ Group, Pub- 
licity Officer: John Preston, (053) 31 4363. 
BBC Users’ Group, Mr Howell (Secre- 
tary), | Washusen Road, Heathmont 
3135, (03) 420 2611 (B). Meets last 
Wednesday each month from 7 to 9.30 
pm at Copiquest, 423 Clarendon Street, 
South Melbourne 3205. 

Billanook Computer Forum, Maurie 
Canterbury, Cardigan Road, Moorool- 
bark 3138, (03) 725 5388. 

Chip 8, 6800, 1802 User Group, Frank 
Rees, 27 King Street, Boort 3537. 
Compucolor Users’ Group, L Ferguson, 
12 Morphett Avenue, Ascot 3342. 

DEC Personal Computer Special Inter- 
est Group, see NSW entry. 

Essendon Commodore 64 User Group, 
George Stathoulis, 8 Byron Avenue, East 
Keilor 3033, (03) 337 4159. 

Forth Interest Group, Lance Collins, PO 
Box 103, Camberwell 3124. Meets on the 
first Friday of the month at the Bowen 
Street Neighbourhood Centre, 102 
Bowen Street, Camberwell South 3124. 
(03) 29 2600. 

Geelong Commodore Computer Club, 
Phil Rayner, PO Box 1455, Geelong 3220, 
(052) 75 4949. 

Geelong Computer Club, Colin Lowne, 
PO Box 520, Geelong 3220; (052) 5 1232. 
Meets at 8 pm, on the first and third . 
Friday of each month in the rooms of the 
Geelong Amateur Radio Club, Storrer 
Street, East Geelong. 

IBM & Columbia Computer Users’ 
Club, Giles Bray, 22/11 Auburn Grove, 
Hawthorn East 3123. Meets second 
Tuesday each month, 7.30 pm, at the Vic- 
torian College of Pharmacy, (03) 82 7632. 
Kaypro Users’ Group of Victoria, 
George Kunz, PO Box 159, Forest Hill 
3131; meetings fourth Sunday each 
month at Burwood State College Com- 
munity Resources Centre at 2 pm. (03) 
857 5462. 

KAOS (Ohio Scientific), John White- 
head, 17 Frugal Cres, Knoxfield 3180. 
Springvale meeting, first Sunday of each 
month (except January) at | pm. Essen- 
don meeting last Sunday of each month 
except December. Phone (03) 763 5983. 
Latrobe Valley Colour Computer 
Users’ Group, George Francis, 31 Don- 
ald Street, Morwell 3840; for TRS80 and 
MC10 users. (03) 22 1389. 

Melbourne Atari Computer Enthusi- 
asts, PO Box 340, Rosanna 3084. Meet- 
ings held on second Sunday of each 


95 


month (except January) at 12 noon at 
Monash University Rotunda. 
Melbourne BBC Users’ Group, meets 
last Wednesday in the month at Con- 
quest P/L, 423 Clarendon Street, South 
Melbourne. Ring the secretary on (03) 
729 4619 (AH). 

Melbourne Lotus 1-2-3 Users’ Group, 
Robert Taylor, (03) 267 4800. 
Melbourne Microbee Users’ Group 
(MBUG Australia Inc.), Grant Forrest, 
PO Box 157, Nunawading 3131; meets at 
7.30 pm on the second Wednesday of 
each month at Mount Waverley Com- 
munity Centre, Cnr Miller Crescent and 
Stephenson's Road, Mount Waverley. 
Different types of membership, including 
standard, and student. Hackers night 
held on fourth Wednesday of each 
month at the same address. 
Melbourne PC User Group, meets on 
the first Wednesday of the month at 6 
pm in the Ground Floor Auditorium, 
Clunies Ross House, 19! Royal Parade, 
Parkville. Contact Garry Bryant (03) 615 
4844. Mail to PO Box 1728P, Melbourne 
3001. 

Melbourne Hitachi Users’ Group, 
Branko Colavizza, PO Box 191, Rosanna 
3084, (03) 434 254]. 

Melbourne Super 80 Users’ Group, 
Hon. Sec. Victor Shuttleworth, (03) 723 
2713. 

MICOM (Microcomputer Club of Mel- 
bourne), Steve Walker, PO Box 60, Can- 
terbury 3126. Meets on the third Satur- 
day of the month at 2 pm, in Building E, 
Victoria College. (059) 78 6133. 
Motorola Users Group Society (MUGS), 
Tony Douglas, 10 Savannah Crescent, 
Epping 3076. Meets on the second Tues- 
day of the month, at 7.30 pm, at Balwyn 
Branch Library, 366 Whitehorse Road, 
Balwyn 3103. 

National Mutual Micro Users’ Group, 
R Prewett, NMLA, PO Box 2830AA, GPO 
Melbourne 3001; for National Mutual 
staff. 

National Sinclair User Group, PO Box 
148, Glen Waverley 3150. 

NEC Portable Users’ Group, D Green; 
meetings second Wednesday of each 
month at Myers Computer Centre, Lons- 
dale Street, at 7.30 pm. (03) 611 3380. 
Northern/Western Suburbs Computer 
Users’ Group, John King, 284 Union 
Road, Moonee Ponds 3039. Contact 
CP/M Data Systems, (03) 338 9304. 
Peninsula Computer Club, George 
Thompson, 3 Patterson Street, Bonbeach 
3196; meets second Tuesday each 
month at Chisholm College, Frankston 
3199; many types of computers catered 
for. (03) 772 2674. 

Puckapunyal Microbee Users Group, 
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G Chinner, 9 Monash Drive, Seymour, 
3660. 

Sega Users’ Club, Peter Lindeman, 6 
Bay Street, Port Melbourne 3207. 
Seymour-Pucka Computer Club, Garry 
Sutton, 25 Malaya Road, Puckapunyal 
3662; (057) 93 1091. 

Sharp Computer Users’ Association, 
The President, 7 Faye Street, East Bur- 
wood 3151. 

Sharp MZ-700 User Group, Anthony 
Saliba, 6 Elm Court, Rosebud 3939; (059) 
86 3024. 

Spectravideo Users’ Group, Mitch 
Raitt, 3 Clivejay Street, Glen Waverley 
3150, (03) 233 2357. 

Sorcerer and CP/M Users of Australia, 
Secretary, SCUA Inc, GPO Box 2402, Mel- 
bourne 3001. Meets on the first Sunday 
of the month, February to December, at 2 
pm at Victoria College, Burwood Cam- 
pus, 221 Burwood Highway, Burwood 
3125. RCPM (03) 754 5081. 

Southern Amstrad User Group, Bob 
Patterson, PO Box 100, Seaford 3196. 
Meets third Thursday each month at 
John Paul College Senior Campus, 
McMahons Road, Frankston, at 7.30 pm. 
TI-99/4A Users’ Group Melbourne, 
Wayne Worladge, 123 Ashburn Grove, 
Ashburton 3147, (03) 25 1832. 

The Motorola User Group (MUGS), 
Clive Allan, 11 Haros Avenue, Nunawad- 
ing 3131; group is interested in 
6800/02/09-based computers, particu- 
larly if running Flex, although this is not 
a prerequisite to join. (03) 878 1298. 
Upper Yarra Computer Reference 
Group, for microcomputer enthusiasts 
and educators. Contact Albin Wallace, 
Woori Yallock Education Centre, (059) 64 
6617. 

Victorian Association of Computer 
Educators, Arthur Totrall, PO Box 69, 
Whittlesea 3757. 

Victorian Osborne Users’ Group, Tony 
Clay, PO Box 169, Camberwell 3124, (03) 
697 6479. 

Victorian VZ-200 User Group, Luigi 
Chiodo, 24 Don St, Reservoir 3073, (03) 
460 3770. 

Victorian Wizzard Users’ Group, Barry 
Klein, 24 Russell Street, Bulleen 3105, 
(03) 850 7275. 

West Microbee Users Group, Peter 
Hallgartent, PO Box C299, ST Albans 
3021. (03) 366 7055. : 

Wizzard User Group, for owners of 
Dick Smith Wizzard and Funvision com- 
puters. The group operates only by mail 
and phone at present. Contact Barry 
Klein, 24 Russell Street, Bulleen 3105, 
(03) 850 7275. 

Yarra Valley Commodore User’s 
Group — affiliated with the Melbourne 


Central Commodore User's Group, 
Barrie Vickers, PO Box 176, Lilydale 3140, 
(03) 735 0638; meets on the first Tuesday 
of each month at the Melba Hall, Cnr 
Market & Castella Streets, Lilydale at 8 
pm. 

Yarrawonga Computer User Group, 
Chris Younger, 10 Witt Street, Yarra- 
wonga 3730, (057) 44 385; for all ma- 
chines. 


Queensland 
Adventure Club, Christine Ogden, 37 


_Samford Road, Leichhardt, Ipswich 4305; 


for all Adventure-type game players. 
Adventure News, Stuart Elflett, 
MSF.550, Toogoolawah 4313. For Com- 
modore 64 adventures only. 
Adventure Special Interest Group, 
Ernie Sugrue, PO Box 594, Maryborough 
4650. 

Amstrad Postal Users’ Group, Frank 
Elliot, 59 27th Avenue, Palm Beach 4221. 
A group for isolated Amstrad users — 
meets monthly by cassette. 

Apple-Q — The Brisbane User Group, 
The Secretary, PO Box 721, South Bris- 
bane 4101; meetings every third Sunday 
of month at Hooper Education Centre, 
Kuran Street, Wavell Heights 4012. Cen- 
tre is open from 8.30 am till 4.30 pm: 
members encouraged to bring Apple 
along. 

Australian Sirius Users’ Group, PO 
Box 204, Chermside 4032; looks after the 
needs of Sirius One and Victor 9000 
computer users. (07) 350 2611. 

BASIC User Group, Chris Lucey, Cra- 
nium Computers, 34 Lawless Street, 
Blackwater 4717. 

Brisbane Amstrad Computer Club, 
John Roberts on (07) 283 3349. Meets. 
four times a month with the first meet- 
ing held on the first Tuesday at Junction 
Park State School, Weidheim St, Anner- 
ley. 

Brisbane Medfly Users’ Group, K J 
Walker, 120 Highgate Street, Coopers 
Plains 4108. 

Brisbane Sinclair (Spectrum) Com- 
puter Club, V Lewis, 37 Samford Road, 
Ipswich 4305. Meets third Sunday at 
Everton Park State High School, at 2.00 
pm. (07) 355 7809. 

Brisbane Super 80 Users’ Group, Gary 
Gatfield, (07) 355 3173. 
Brisbane Youth Computer Group, A 
Harrison, PO Box 396, Sunnybank 4109. 
Brisbug, Sylvia Willie, PO Box 305, Wyn- 
num Central 4178. Meets at 2 pm on the 
third Sunday of each month at the Too- 
wong High School. (07) 393 3388. 
Cairns District Microbee Users’ 
Group, Chas Eustance, 2! Marr Street, 
Edmonton 4869, (070) 55 4531. 
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Commodore Computer Users’ Group, 
Mr NR Chambers, PO Box 274, Spring- 
wood 4127, (07) 808 2125. 


Computer Owners’ Group, Betty Ad- 
cock, 42 Lucan Ave, Aspley 4034. Meets 
second Wednesday each month, 7.45 
pm; all kinds of computers are catered 
for. (07) 263 4268. 

Computer Users Group of Australia, 
David Siebuhr, PO Box 166, Pittsworth 
4356. Meets first Tuesday of each month 
at 5 pm in the St Peters Lutheran Hall, 
Grand St, Pittsworth. Phone (076) 931 
690. 

Darling Downs Apple Users’ Group, 
Lloyd, PO Box 53, Darling Heights 4350. 
(07) 38 3060. 

DEC Personal Computer Special Inter- 
est Group, see NSW entry. 

Gold Coast Microbee User Group, Col 
McLaren, 1/100 Imperial Parade, Labra- 
dor 4215. Meetings first Sunday each 
month, 3.00 pm, at the Southport High 
School. (075) 31 4610. 

IREE Microcomputer Interest Group, 
N Wilson, PO Box 811, Albion 4010. 
Mackay Microbee User Group, Geoff 
Gehring, PO Box 230, Mackay 4740, (079) 
42 3214. 

MSX-Australia, PO Box |1319, Southport 
4215. 

NEC PC-8000 Users Group, David 
Clark, PO Box 281, Upper MT Gravatt, 
4122. (B) (07) 52 3662, (H) (07) 343 7680. 
Osborne Users’ Group of Queensland 
Uni, Glen McBride. Meetings second 
Wednesday each month, open to all. (07) 
870 1177. 

PC-8000 Users’ Group of Queensland, 
David Clark, (07) 343 7680 (AH). Meets 
second Friday of each month at the Old 
Town Hall, South Brisbane. 

QBUG (Queensland BBC Users’ 
Group), Meets first Tuesday each 
month. Ring (07) 386 022 (AH) for de- 
tails. 

Queensland CP/M Users, The Secretary, 
PO Box 1025, Milton 4064. Meets on the 
last Sunday of each month at the Univer- 
sity of Qld, Civil Engineering Room 1.01 
(off Staff House Road) from | pm. 
Rockhampton Microbee Users Group, 
A Parr. Frenchville State Primary School, 
Frenchville Road, North Rockhampton, 
4701. (079) 27 9065. 

Sharp User Group of Brisbane, meets 
on the second Wednesday of each 
month at Graceville State School. All 
Sharp owners welcome. Contact Bill 
Laidlaw, 51 Sandon Street, Graceville 
4075; (07) 379 3457. 

Sega Users’ Group, Robert Horkings, 
PO Box 148, Fortitude Valley 4006, (07) 
52 5603; meetings first Saturday of each 
month, YMCA Hall at | pm. 
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Southport Commodore Computer 
Users Group, Bill Fitzpatrick, PO Box 
790, Southport 4125, (075) 32 0061. 
Superboard Users’ Group, Ed Richard- 
son, 146 York Street, Nundah 4012. 
Tandy, Apple, Commodore User 
Group, Chris Lucey, 34 Lawless Street, 
Blackwater 4717. 

The Microcomputer Society, The Secre- 
tary, PO Box 580, Fortitude Valley 4006; 
meetings are held on the second Friday 
of each month in the Old Town Hall, cor- 
ner Vulture and Graham Streets, South 
Brisbane 4101. Meetings start at 7.30 
pm; if main gate is closed use the back 
stairway. 

Twin Towns Computer Users Group, 
Cyril White, 16 Burdock Street, Palm Gar- 
den Water. Meets every second Tuesday 
night at the Elanora State School from 7 
pm to 9.30pm. (075) 562 336. 
Townsville Microbee User Group 
(TMUG), Mannie Van Rijswijk, PO Box 
5751, MC, Townsville 4810. Meetings 
7.30 pm on second and fourth Mondays 
each month on the Ground Floor, St 
Margaret Mary's Secondary School, 
Crowle Street, Hermit Park 4812. 
TRS80/System 80 Computer Group, 
secretary, 16 Laver Street, Macgregor 
4109. Meets first Sundy each month at 
Lindum Hall, Lindum Street, Lindum 
4178, at 2.00 pm. (07) 343 5771. 
University of Queensland Osborne 
User’s Group, Glen McBride (president) 
(07) 870 1177, or Richard Duczmal (treas- 
urer) (07) 377 3139. Meets on the second 
Wednesday of the month, in the Axon 
building on campus. Membership is 
open to both students and non- -stu- 
dents. 

VZ-200 Pacific Region Club, J D’Alton, 
39 Agnes Street, Toowong 4066, (07) 371 
3707. 

Yass Microbee Users Group, 25 De 
Mestre Street, Yass, 2582. 

ZX81 Club, P Carswell, 22 Braud Street, 
Bundaberg 4670. 


South Australia 


Adelaide Atari Computer Club 
(AACC), Secretary, PO Box 333, Nor- 
wood 5067. Meets at Gilles Street Pri- 
mary School, City, on first Monday (sec- 
ond if first is on public holiday) of each 
month, 7.30 to 9.30 pm. 

Adelaide Beebnet, Contact the secre- 
tary at PO Box 262, Kingswood, SA. 
Adelaide Lotus 1-2-3 User Group, Paul 
Wragg, Pannell Kerr Foster, GPO Box 
1969, Adelaide 5001. | 
Adelaide Micro User Group, Helen 
Ross, 36 Sturt Street, Adelaide 5000; for 
TRS80 and System 80 users. 

Adelaide Osborne Group, Russell Bar- 


ter, The Secretary, GPO Box 603, Ade- 
laide 5001. 

Adelaide PC Users’ Group, PO Box 68, 
Walkerville 5081; contact John Roberts 
(08) 212 5020 (B). Meets on the second 
Thursday of each month, at 195 Gilles 
Street, Adelaide, at 7.45 pm; or as adver- 
tised in the computer section of the Ad- 
vertiser on the Saturday prior. 

Adelaide Sega User’s Group, John 
Maynard. Meets on the first Wednesday 
of each month at 7.30 pm, at the Lu- 
theran Hall, 137 Archer Street, North 
Adelaide. (08) 264 2747. 


Adelaide Super-80 User’s Group, Mr L 
White, The Secretary, 503 Churchill 
Road, Kilburn 5084; meets on the third 
Monday of each month, (the second 
Monday in the case of a public holiday) 
at 7.30 pm in the canteen of Mason & 
Cox Foundry, 123 Hayward Avenue, Tor- 
rensville 5031, (08) 260 6226. Subscrip- 
tion: $5 pa. | 
Aquarius Users’ Club, Benedict Sabel, 
7 Duncraig Lane, 5152. $5 membership 
fee covers the cost of a bimonthly news- 
letter. 

Beebnet, BBC and Econet User Group 
PO Box 262, Kingswood 5062; the group 
intends to produce a newsletter on a 
monthly basis. It is interested in any 
software producers or distributors who 
would be interested in serving the 
group’s market requirements. » 
Commodore/VIC Computer Users’ 
Association, Mr Eddie Hann, 13 Mi- . 
randa Road, Paralowie 5108; the SA 
branch meets monthly. 
Compucolor-Intecolor Users of South. 
Australia, PO Box 86, Torrensville 3031, 
(08) 352 3296. 7 

DEC Personal Computer Special I Inter- 
est Group, see NSW entry. 

Kaypro User Group, Ralf Engler, 16/34 
John Street, Payneham 5070. 

Microbee Users’ Group of South Aus- 
tralia (MUGSA), The Secretary, GPO 
Box 767, Adelaide 5001. 

Sega Users’ Club, H A Jacobson, 10 Pio- 
neer Avenue, O'Sullivan Beach 5166; (08) 
382 7967. | | 

South Australian Apple Users’ Club, 
PO Box 322, Prospect 5082; secretary 
(02) 293 7183. Club caters for Apple II 
series and Mac computer users. Meets 
on the first Friday of every month at the 


‘Prospect Town Hall. 


South Australian Commodore Com- | 
puters’ User Group, Eddie Hann, Sec- 
retary, PO Box 427, North Adelaide 5006; 
theetings second Tuesday each month, 
7.30 pm, at Royal Caledonian Hall, 379 
King William St, Adelaide 5000. (08) 258 


— 6367. 


South Australian Foundation for Com- 
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puter Literacy, Michael Kennett, PO 
Box 210, Norwood 5067; caters for chil- 
dren from six years (unaccompanied) or 
four years with older friend or brother or 
sister. Special emphasis on the needs of 
handicapped, educationally disabled 
and socially disadvantaged children, but 
all children welcome. Family participa- 
tion encouraged. (08) 51 5474. 

South Australian Peach User Group, 
Geoff Drury, 27 Creslin Tce, Camden Park 
5038; special interest group attached to 
the SA Microprocessor Group, which 
holds separate meetings; (08) 295 2778 
ah. 

south Australian Microprocessor 
Group Inc (SAMG), The Secretary, PO 
Box 113, Plympton 5038, (08) 278 7288. 
Sorcerer Users’ Group of South 
Australia, Don Ide, 14 Scott Road, New- 
ton 5074. 

South Australian Apple Users’ Club, 
The Secretary, c/- The Bookshelf, 169 
Pirie Street, Adelaide 5000. 

South Australian Microprocessor 
Group Inc.(SAMG), secretary Rick Mat- 
thews, 9 Anglesey Ave, St Georges 5064; 
(08) 79 3445. Meets second Friday of 
every month, Institute of Engineers, Aust 
Bldg, 11 Bagget St, North Adelaide. 
south East Computer Enthusiasts’ 
Group, Glenn Mibus, 3 Millard St, 
Mount Gambier 5290; meetings second 
and fourth Tuesday of each month from 
6.30 pm at Mt Gambier High School 
Computer Room, for all machines and 
interested parties. (087) 25 1046. 


Northern Territory 


Alice Springs Microbee Users’ Group, 
Douglas Craigie, c/- PO Box 3230, Alice 
Springs 5750. 

Darwin Microbee Users’ Group 
(DBUG), Felino Molina, PO Box 3111, 
Darwin 5794, (089) 82 5613 bh, (089) 88 
1455 ah. 

Darwin PC Users’ Group, Terry O’- 
Brien. Meets on the first Sunday of every 
month at 8 pm, at 5 Binet Court Malak. 
(089) 27 4454. 

Northern Territory Computer Club, 
lan Diss; meets at Wulagi Primary 
School on the first and third Thursday of 
each month at 7.30 pm. Users of all ma- 
chines and other interested parties wel- 
come. (089) 27 9208. | 

Northern Territory 80 Computer User 
Group, R T O'Brien, 433 McMillans 
Road, Jingili 5792. 

VZ-200 Users’ Club, 7 Abbott Crescent, 
Malak 5793, (089) 27 2830. 


Western Australia 


Agriculture Users’ Group, c/- Mr R Fen- 
wick, Department of Agriculture, Albany 
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USER GROUPS 


6330. For farmers and the agriculture 
service industries. 

CU West WA Compucolor/Intecolor 
Users’ Group, John Newman, 8 Hillcrest 
Drive, Darlington 6070. 

DEC Pesonal Computer Special Inter- 
est Group, see NSW entry. 

KAOS-WA, Gerry Ligtermoet, 39 Clois- 
ter Ave, Manning 6152; for Ohio Scien- 
tific Users. (09) 450 5081. 

Kaypro User Group of Western Aus- 
tralia, Ainslie Sharpe, PO Box 91, Clare- 
mont 6010; meetings second and fourth 
Mondays of each month in the Canteen 
of the Department of Agriculture, Jarrah 
Road, South Perth 6151. (09) 384 5511. 
Microbee Users’ Group of Western 
Australia, meets at 7 pm on the first 
Sunday of the month in the Nurses’ Lec- 
ture Theatre of the Sir Charles Gairdner 
Hospital at Shenton Park. Write to 4 
Gannkirk Road, Greenwood, WA 6024. 
(09) 294 1833. 

PC Micro Users’ Group, meets on the 
first tuesday of the month at Royal Kings 
Park Tennis Club, Lower Tennis Pavilion, 
Kings Park Road, at 5.30 pm. Contact 
Peter Goodwin on (08) 274 5911 (B), or 
on 386 4502 (H). 

OSWEST-Osborne Users’ Group of 
Western Australia, Mal Ferguson, PO 
Box 149, Applecross 6153. Meets first 
and third Wednesdays at the Palmyra 
Recreation Centre and the Subiaco Exhi- 
bition Hall respectively from 7.30 pm, for 
Osborne and other interested computer 
users. (09) 295 1449. 

Perth 80 Users’ Group, C Powell; for 
System 80 and TRS80 users. (09) 457 
6849. 

Perth Hitachi Peach Club, The Secre- 
tary, | Charf Court, Riverton 6155; for 
Hitachi Peach and 6809s. (09) 367 5880. 
Sharp PC Users’ Group, John Paulic, 
PO Box 79, Gosnells 6110, (09) 398 6303. 
Sega Users’ Group, John McClemmon, 
33 Favell Way, Balga 6061; (09) 342 5905. 
The Sorcerer & CP/M Users’ of Austra- 
lia, Dave, 22 Verbena Road, Willetton 
6155, (09) 457 1917. Meets every fort- 
night. 

TI Users Group of Perth, Nigel Mercer, 
PO Box 246 Mt Lawley 6050, (09) 409 
9683. Meets on the third Saturday of eac 
month. 

Sorcerer Computer Users of Australia, 
The Secretary, 90 King George Street, 
South Perth 6151, (09) 367 6351. 

The West Australian Atari Computer 
Club, Mr Alf Gaebier (Secretary), PO Box 
7169, Cloisters Square, Perth 6000. 

The WA Cromenco Users’ Group, CA 
Marshall, Suite 2, 294 Rokeby Road, 
Subiaco 6008. Meets third Tuesday each 


~ month. (09) 382 2692. 


VIC-Ups, G. Padfield, (09) 451 4629. 
Western Australian Wizzard Users’ 
Group, John Reid, 13 Wenlock Road, 
Wattleup 6166, (09) 410 2359. 

Western Australian ZX Users’ Group, 
Phil Taylor, (09) 328 4111 bh. 

Western Australian University Com- 
puter Club, 2nd Floor, University of WA, 
Guild Building, (09) 386 1455. 


Tasmania 


Apricot User’s Group, Rick Snell, PO 
Box 286 C, GPO Hobart 7001, (002) 23 
399926. 

DEC Personal Computer Special Inter- 
est Group, see NSW entry. 

Devonport Computer Interest Group, 
John Steveson, RSD 422, Sheffield 7306, 
(004) 92 3237. 

Hobart Tasbeeb. Meets on the first 
Friday of the month at Rose Bay High 
School at 7.30 pm. (002) 34 2704. 
Launceston Microbee Users Group, 
Graham Jones, 28 Lavender Grove, 
Launceston, 7250. 

Down Under Atari User Group; con- 
tact Robert Bronstein, 191 Rokeby 
Street, Howrah 7018. 

Spectravideo Computer Users’ Group, 
PO Box 191, Launceston South 7249; 
membership costs $20, which entitles 
members to a newsletter and to dis- 
counts on computer equipment. (003) 44 
2493. 

Southern Tasmanian Amstrad Club, 
meets at 7.30 pm on the first Wednesday 
of the month at Elizabeth Matriculation 
College (first floor). Contact Vern McKay 
(002) 29 4528. 

Tandy Hobart Users’ Group, Ms KJ 
Rees, GPO Box 1271 N, Hobart 7001, 
(002) 72 1426; meets on the third Thurs- 
day of each month — contact Ms Rees 
for details of venue. 

Tasbeeb, John Hannon, PO Box 25, 
North Hobart 7000; meetings first Mon- 
day each month at Elizabethan Matricu- 
lation College in D Block at 8 pm, for 
BBC computers. (002) 34 2704. 
Tasmanian Apple Users Group, Ray 
Williams, PO Box 188, North Hobart 
7008, meets third Tuesday each month 
at 8.15 pm, 73 Murray Street, Hobart. 
Tasmanian TI User Group, Co-ordina- 
tor, | Benboyd Court, Rokeby 7019. 
Meetings third Sunday of each month at 
University of Tasmania, room 373. (002) 
29 4009. 

TAS-Micro, Peter Deckert, 1/456 West 
Tamar Road, Riverside 7250. 


New Zealand 

Palmerston North Microbee Users’ 
Group, Contact R Anderson, 6 Hendon 
Place, Palmerston North, New Zealand. 
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